/[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.4.1 by miles, Fri Apr 4 06:20:30 2003 UTC revision 1.3.4.2 by miles, Tue Oct 14 23:39:26 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))
# Line 216  Edit the `mh-identity-list' variable to Line 210  Edit the `mh-identity-list' variable to
210  ;;; sentence-end-double-space: nil  ;;; sentence-end-double-space: nil
211  ;;; End:  ;;; End:
212    
213    ;;; arch-tag: 07d66ef6-8726-4ac6-9ecf-e566cd5bfb45
214  ;;; mh-identity.el ends here  ;;; mh-identity.el ends here

Legend:
Removed from v.1.3.4.1  
changed lines
  Added in v.1.3.4.2

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