[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/undigest.el
From: |
Francesco Potortì |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/undigest.el |
Date: |
Thu, 20 Feb 2003 03:56:08 -0500 |
Index: emacs/lisp/mail/undigest.el
diff -c emacs/lisp/mail/undigest.el:1.32 emacs/lisp/mail/undigest.el:1.33
*** emacs/lisp/mail/undigest.el:1.32 Fri Jan 31 09:01:20 2003
--- emacs/lisp/mail/undigest.el Thu Feb 20 03:56:08 2003
***************
*** 232,244 ****
;; If we are in a summary buffer, switch to the Rmail buffer.
(unwind-protect
(with-current-buffer rmail-buffer
- (narrow-to-region (rmail-msgbeg rmail-current-message)
- (rmail-msgend rmail-current-message))
(goto-char (point-min))
(let ((buffer-read-only nil)
! (forwarded-from (mail-fetch-field "From"))
! (forwarded-date (mail-fetch-field "Date"))
beg end prefix forward-msg)
(cond ((re-search-forward rmail-forward-separator-regex nil t)
(forward-line 1)
(skip-chars-forward "\n")
--- 232,249 ----
;; If we are in a summary buffer, switch to the Rmail buffer.
(unwind-protect
(with-current-buffer rmail-buffer
(goto-char (point-min))
+ (narrow-to-region (point)
+ (save-excursion (search-forward "\n\n") (point)))
(let ((buffer-read-only nil)
! (old-fwd-from (mail-fetch-field "Forwarded-From" nil nil t))
! (old-fwd-date (mail-fetch-field "Forwarded-Date" nil nil t))
! (fwd-from (mail-fetch-field "From"))
! (fwd-date (mail-fetch-field "Date"))
beg end prefix forward-msg)
+ (narrow-to-region (rmail-msgbeg rmail-current-message)
+ (rmail-msgend rmail-current-message))
+ (goto-char (point-min))
(cond ((re-search-forward rmail-forward-separator-regex nil t)
(forward-line 1)
(skip-chars-forward "\n")
***************
*** 274,281 ****
(narrow-to-region (point) (point))
(insert rmail-mail-separator)
(narrow-to-region (point) (point))
! (insert "Forwarded-From: " forwarded-from "\n")
! (insert "Forwarded-Date: " forwarded-date "\n")
(insert forward-msg)
(save-restriction
(goto-char (point-min))
--- 279,291 ----
(narrow-to-region (point) (point))
(insert rmail-mail-separator)
(narrow-to-region (point) (point))
! (while old-fwd-from
! (insert "Forwarded-From: " (car old-fwd-from) "\n")
! (insert "Forwarded-Date: " (car old-fwd-date) "\n")
! (setq old-fwd-from (cdr old-fwd-from))
! (setq old-fwd-date (cdr old-fwd-date)))
! (insert "Forwarded-From: " fwd-from "\n")
! (insert "Forwarded-Date: " fwd-date "\n")
(insert forward-msg)
(save-restriction
(goto-char (point-min))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/undigest.el,
Francesco Potortì <=