1 |
;;; mh-identity.el --- Multiple Identify support for MH-E. |
;;; mh-identity.el --- Multiple identify support for MH-E. |
2 |
|
|
3 |
;; Copyright (C) 2002 Free Software Foundation, Inc. |
;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Peter S. Galbraith <psg@debian.org> |
;; Author: Peter S. Galbraith <psg@debian.org> |
6 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
37 |
|
|
38 |
;;; Change Log: |
;;; Change Log: |
39 |
|
|
|
;; $Id$ |
|
|
|
|
40 |
;;; Code: |
;;; Code: |
41 |
|
|
42 |
|
|
167 |
(cond |
(cond |
168 |
;; If MIME composition done, insert signature at the end as |
;; If MIME composition done, insert signature at the end as |
169 |
;; an inline MIME part. |
;; an inline MIME part. |
170 |
((and (boundp 'mh-mhn-compose-insert-flag) |
((mh-mhn-directive-present-p) |
|
mh-mhn-compose-insert-flag) |
|
171 |
(insert "#\n" "Content-Description: Signature\n")) |
(insert "#\n" "Content-Description: Signature\n")) |
172 |
((and (boundp 'mh-mml-compose-insert-flag) |
((mh-mml-directive-present-p) |
|
mh-mml-compose-insert-flag) |
|
173 |
(mml-insert-tag 'part 'type "text/plain" |
(mml-insert-tag 'part 'type "text/plain" |
174 |
'disposition "inline" |
'disposition "inline" |
175 |
'description "Signature"))) |
'description "Signature"))) |
178 |
(funcall value)) |
(funcall value)) |
179 |
(goto-char (point-min)) |
(goto-char (point-min)) |
180 |
(when (not (re-search-forward "^--" nil t)) |
(when (not (re-search-forward "^--" nil t)) |
181 |
(if (and (boundp 'mh-mhn-compose-insert-flag) |
(cond ((mh-mhn-directive-present-p) |
182 |
mh-mhn-compose-insert-flag) |
(forward-line 2)) |
183 |
(forward-line 2)) |
((mh-mml-directive-present-p) |
184 |
(if (and (boundp 'mh-mml-compose-insert-flag) |
(forward-line 1))) |
|
mh-mml-compose-insert-flag) |
|
|
(forward-line 1)) |
|
185 |
(insert "-- \n")) |
(insert "-- \n")) |
186 |
(set (make-local-variable 'mh-identity-signature-end) |
(set (make-local-variable 'mh-identity-signature-end) |
187 |
(make-marker)) |
(make-marker)) |