[Emacs-diffs] Changes to emacs/lisp/mail/undigest.el

[Kim F. Storm]

Index: emacs/lisp/mail/undigest.el
diff -c emacs/lisp/mail/undigest.el:1.30 emacs/lisp/mail/undigest.el:1.31
*** emacs/lisp/mail/undigest.el:1.30    Wed Jan  8 04:11:23 2003
--- emacs/lisp/mail/undigest.el Wed Jan  8 05:13:57 2003
***************
*** 230,236 ****
        (let ((buffer-read-only nil)
              (forwarded-from (mail-fetch-field "From"))
              (forwarded-date (mail-fetch-field "Date"))
!             beg end prefix forward-msg n)
          (cond ((re-search-forward
                  "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t)
                 (forward-line 1)
--- 230,236 ----
        (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
                  "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t)
                 (forward-line 1)
***************
*** 280,288 ****
                (insert "\t"))
              (forward-line)))
          (goto-char (point-min))))
!     (setq n rmail-current-message)
!     (rmail-forget-messages)
!     (rmail-show-message n)
      (if (rmail-summary-exists)
        (rmail-select-summary
         (rmail-update-summary)))))
--- 280,288 ----
                (insert "\t"))
              (forward-line)))
          (goto-char (point-min))))
!     (let ((n rmail-current-message))
!       (rmail-forget-messages)
!       (rmail-show-message n))
      (if (rmail-summary-exists)
        (rmail-select-summary
         (rmail-update-summary)))))