/[emacs]/emacs/lisp/mail/uce.el
ViewVC logotype

Diff of /emacs/lisp/mail/uce.el

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

revision 1.8 by gerd, Fri Jul 13 12:59:13 2001 UTC revision 1.8.4.1 by eliz, Sat Feb 2 16:59:02 2002 UTC
# Line 222  address, and postmaster of the mail rela Line 222  address, and postmaster of the mail rela
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)
# Line 254  address, and postmaster of the mail rela Line 259  address, and postmaster of the mail rela
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))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.8.4.1

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