Mercurial > emacs
diff lisp/mh-e/mh-comp.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 13:24:35 +0000 |
parents | b35587af8747 |
children | 7dd3d5eae9c7 d7ddb3e565de |
line wrap: on
line diff
--- a/lisp/mh-e/mh-comp.el Tue Feb 04 12:29:42 2003 +0000 +++ b/lisp/mh-e/mh-comp.el Tue Feb 04 13:24:35 2003 +0000 @@ -30,7 +30,7 @@ ;;; Change Log: -;; $Id: mh-comp.el,v 1.173 2003/01/26 19:37:22 jchonig Exp $ +;; $Id: mh-comp.el,v 1.2 2003/02/03 20:55:30 wohler Exp $ ;;; Code: @@ -552,7 +552,7 @@ t))) (delete-other-windows) (save-buffer) - + (let ((to (mh-get-header-field "To:")) (subject (mh-get-header-field "Subject:")) (cc (mh-get-header-field "Cc:"))) @@ -1151,7 +1151,7 @@ (pop-to-buffer draft) (if mh-insert-mail-followup-to-flag (mh-insert-mail-followup-to)) (mh-letter-mode) - + ;; mh-identity support (if (and (boundp 'mh-identity-default) mh-identity-default) @@ -1160,7 +1160,7 @@ mh-identity-list) (mh-identity-make-menu) (easy-menu-add mh-identity-menu)) - + (setq mh-sent-from-folder sent-from-folder) (setq mh-sent-from-msg sent-from-msg) (setq mh-send-args send-args) @@ -1389,7 +1389,7 @@ ;; Insert the string to filter (insert string) (goto-char (point-min)) - + ;; Remove the MIME buttons (let ((can-move-forward t) (in-button nil)) @@ -1486,7 +1486,7 @@ (looking-at "^.*\\(to\\|cc\\|from\\):"))) (mh-alias-letter-expand-alias) (funcall mh-letter-complete-function arg)))) - + ;;; Build the letter-mode keymap: ;;; If this changes, modify mh-letter-mode-help-messages accordingly, above. (gnus-define-keys mh-letter-mode-map