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:"))) |
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) |
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) |
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)) |
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 |