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

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

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

revision 1.2 by wohler, Mon Feb 3 20:55:30 2003 UTC revision 1.3 by lektu, Tue Feb 4 13:15:32 2003 UTC
# Line 552  for the reply.  See also documentation f Line 552  for the reply.  See also documentation f
552                                  t)))                                  t)))
553        (delete-other-windows)        (delete-other-windows)
554        (save-buffer)        (save-buffer)
555          
556        (let ((to (mh-get-header-field "To:"))        (let ((to (mh-get-header-field "To:"))
557              (subject (mh-get-header-field "Subject:"))              (subject (mh-get-header-field "Subject:"))
558              (cc (mh-get-header-field "Cc:")))              (cc (mh-get-header-field "Cc:")))
# Line 1151  CONFIG is the window configuration to re Line 1151  CONFIG is the window configuration to re
1151    (pop-to-buffer draft)    (pop-to-buffer draft)
1152    (if mh-insert-mail-followup-to-flag (mh-insert-mail-followup-to))    (if mh-insert-mail-followup-to-flag (mh-insert-mail-followup-to))
1153    (mh-letter-mode)    (mh-letter-mode)
1154      
1155    ;; mh-identity support    ;; mh-identity support
1156    (if (and (boundp 'mh-identity-default)    (if (and (boundp 'mh-identity-default)
1157             mh-identity-default)             mh-identity-default)
# Line 1160  CONFIG is the window configuration to re Line 1160  CONFIG is the window configuration to re
1160               mh-identity-list)               mh-identity-list)
1161      (mh-identity-make-menu)      (mh-identity-make-menu)
1162      (easy-menu-add mh-identity-menu))      (easy-menu-add mh-identity-menu))
1163    
1164    (setq mh-sent-from-folder sent-from-folder)    (setq mh-sent-from-folder sent-from-folder)
1165    (setq mh-sent-from-msg sent-from-msg)    (setq mh-sent-from-msg sent-from-msg)
1166    (setq mh-send-args send-args)    (setq mh-send-args send-args)
# Line 1389  yanked message will be deleted." Line 1389  yanked message will be deleted."
1389      ;; Insert the string to filter      ;; Insert the string to filter
1390      (insert string)      (insert string)
1391      (goto-char (point-min))      (goto-char (point-min))
1392        
1393      ;; Remove the MIME buttons      ;; Remove the MIME buttons
1394      (let ((can-move-forward t)      (let ((can-move-forward t)
1395            (in-button nil))            (in-button nil))
# Line 1486  passing the prefix ARG if any." Line 1486  passing the prefix ARG if any."
1486                 (looking-at "^.*\\(to\\|cc\\|from\\):")))                 (looking-at "^.*\\(to\\|cc\\|from\\):")))
1487          (mh-alias-letter-expand-alias)          (mh-alias-letter-expand-alias)
1488        (funcall mh-letter-complete-function arg))))        (funcall mh-letter-complete-function arg))))
1489          
1490  ;;; Build the letter-mode keymap:  ;;; Build the letter-mode keymap:
1491  ;;; If this changes, modify mh-letter-mode-help-messages accordingly, above.  ;;; If this changes, modify mh-letter-mode-help-messages accordingly, above.
1492  (gnus-define-keys  mh-letter-mode-map  (gnus-define-keys  mh-letter-mode-map

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

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