Mercurial > emacs
diff lisp/mh-e/mh-identity.el @ 50702:7dd3d5eae9c7
Upgraded to MH-E version 7.3.
See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Fri, 25 Apr 2003 05:52:00 +0000 |
| parents | 0d8b17d428b5 |
| children | 695cf19ef79e |
line wrap: on
line diff
--- a/lisp/mh-e/mh-identity.el Fri Apr 25 04:32:25 2003 +0000 +++ b/lisp/mh-e/mh-identity.el Fri Apr 25 05:52:00 2003 +0000 @@ -1,6 +1,6 @@ -;;; mh-identity.el --- Multiple Identify support for MH-E. +;;; mh-identity.el --- Multiple identify support for MH-E. -;; Copyright (C) 2002 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. ;; Author: Peter S. Galbraith <psg@debian.org> ;; Maintainer: Bill Wohler <wohler@newt.com> @@ -37,8 +37,6 @@ ;;; Change Log: -;; $Id: mh-identity.el,v 1.2 2003/02/03 20:55:30 wohler Exp $ - ;;; Code: @@ -169,11 +167,9 @@ (cond ;; If MIME composition done, insert signature at the end as ;; an inline MIME part. - ((and (boundp 'mh-mhn-compose-insert-flag) - mh-mhn-compose-insert-flag) + ((mh-mhn-directive-present-p) (insert "#\n" "Content-Description: Signature\n")) - ((and (boundp 'mh-mml-compose-insert-flag) - mh-mml-compose-insert-flag) + ((mh-mml-directive-present-p) (mml-insert-tag 'part 'type "text/plain" 'disposition "inline" 'description "Signature"))) @@ -182,12 +178,10 @@ (funcall value)) (goto-char (point-min)) (when (not (re-search-forward "^--" nil t)) - (if (and (boundp 'mh-mhn-compose-insert-flag) - mh-mhn-compose-insert-flag) - (forward-line 2)) - (if (and (boundp 'mh-mml-compose-insert-flag) - mh-mml-compose-insert-flag) - (forward-line 1)) + (cond ((mh-mhn-directive-present-p) + (forward-line 2)) + ((mh-mml-directive-present-p) + (forward-line 1))) (insert "-- \n")) (set (make-local-variable 'mh-identity-signature-end) (make-marker))