diff options
| author | Eli Zaretskii <[email protected]> | 2002-02-02 16:54:59 +0000 |
|---|---|---|
| committer | Eli Zaretskii <[email protected]> | 2002-02-02 16:54:59 +0000 |
| commit | f04f5c7689cdbb0cb6a89bb75dcb064d64512cf0 (patch) | |
| tree | f066ac5cc24c97f15720970f33e6e92a07eae8f9 /lisp/mail | |
| parent | d54f26b13e909a86a5a442ea30971e7d369f7452 (diff) | |
(uce-reply-to-uce): Prune the headers before copying
the message text into the *mail* buffer, and restore the pruned
state after that.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/uce.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el index 3d11b7f848..8b86dc68dc 100644 --- a/lisp/mail/uce.el +++ b/lisp/mail/uce.el @@ -222,10 +222,15 @@ address, and postmaster of the mail relay used." (cond ((eq uce-mail-reader 'gnus) gnus-original-article-buffer) ((eq uce-mail-reader 'rmail) "RMAIL") (t (error - "Variable uce-mail-reader set to unrecognized value"))))) + "Variable uce-mail-reader set to unrecognized value")))) + (full-header-p (and (eq uce-mail-reader 'rmail) + (not (rmail-msg-is-pruned))))) (or (get-buffer message-buffer) (error (concat "No buffer " message-buffer ", cannot find UCE"))) (switch-to-buffer message-buffer) + ;; We need the message with headers pruned. + (if full-header-p + (rmail-toggle-header 1)) (let ((to (mail-strip-quoted-names (mail-fetch-field "from" t))) (reply-to (mail-fetch-field "reply-to")) temp) @@ -254,6 +259,9 @@ address, and postmaster of the mail relay used." (rmail-maybe-set-message-counters) (copy-region-as-kill (rmail-msgbeg rmail-current-message) (rmail-msgend rmail-current-message)))))) + ;; Restore the pruned header state we found. + (if full-header-p + (rmail-toggle-header 0)) (switch-to-buffer "*mail*") (erase-buffer) (setq temp (point)) |