/[emacs]/emacs/lisp/mh-e/mh-identity.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-identity.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by lektu, Tue Feb 4 13:15:32 2003 UTC revision 1.4 by wohler, Fri Apr 25 05:52:00 2003 UTC
# Line 1  Line 1 
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>
# Line 37  Line 37 
37    
38  ;;; Change Log:  ;;; Change Log:
39    
 ;; $Id$  
   
40  ;;; Code:  ;;; Code:
41    
42    
# Line 169  Edit the `mh-identity-list' variable to Line 167  Edit the `mh-identity-list' variable to
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")))
# Line 182  Edit the `mh-identity-list' variable to Line 178  Edit the `mh-identity-list' variable to
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))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26