222 |
(cond ((eq uce-mail-reader 'gnus) gnus-original-article-buffer) |
(cond ((eq uce-mail-reader 'gnus) gnus-original-article-buffer) |
223 |
((eq uce-mail-reader 'rmail) "RMAIL") |
((eq uce-mail-reader 'rmail) "RMAIL") |
224 |
(t (error |
(t (error |
225 |
"Variable uce-mail-reader set to unrecognized value"))))) |
"Variable uce-mail-reader set to unrecognized value")))) |
226 |
|
(full-header-p (and (eq uce-mail-reader 'rmail) |
227 |
|
(not (rmail-msg-is-pruned))))) |
228 |
(or (get-buffer message-buffer) |
(or (get-buffer message-buffer) |
229 |
(error (concat "No buffer " message-buffer ", cannot find UCE"))) |
(error (concat "No buffer " message-buffer ", cannot find UCE"))) |
230 |
(switch-to-buffer message-buffer) |
(switch-to-buffer message-buffer) |
231 |
|
;; We need the message with headers pruned. |
232 |
|
(if full-header-p |
233 |
|
(rmail-toggle-header 1)) |
234 |
(let ((to (mail-strip-quoted-names (mail-fetch-field "from" t))) |
(let ((to (mail-strip-quoted-names (mail-fetch-field "from" t))) |
235 |
(reply-to (mail-fetch-field "reply-to")) |
(reply-to (mail-fetch-field "reply-to")) |
236 |
temp) |
temp) |
259 |
(rmail-maybe-set-message-counters) |
(rmail-maybe-set-message-counters) |
260 |
(copy-region-as-kill (rmail-msgbeg rmail-current-message) |
(copy-region-as-kill (rmail-msgbeg rmail-current-message) |
261 |
(rmail-msgend rmail-current-message)))))) |
(rmail-msgend rmail-current-message)))))) |
262 |
|
;; Restore the pruned header state we found. |
263 |
|
(if full-header-p |
264 |
|
(rmail-toggle-header 0)) |
265 |
(switch-to-buffer "*mail*") |
(switch-to-buffer "*mail*") |
266 |
(erase-buffer) |
(erase-buffer) |
267 |
(setq temp (point)) |
(setq temp (point)) |