mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

(unforward-rmail-message): Don't use global variable `n'.

Browse Source
This commit is contained in:
Kim F. Storm 2003-01-08 10:13:57 +00:00
parent baad7c1329
commit e49ba70172
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/undigest.el
View File

@ -230,7 +230,7 @@ following the containing message."
(let ((buffer-read-only nil)
(forwarded-from (mail-fetch-field "From"))
(forwarded-date (mail-fetch-field "Date"))
beg end prefix forward-msg n)
beg end prefix forward-msg)
(cond ((re-search-forward
"^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t)
(forward-line 1)
@ -280,9 +280,9 @@ following the containing message."
(insert "\t"))
(forward-line)))
(goto-char (point-min))))
(setq n rmail-current-message)
(rmail-forget-messages)
(rmail-show-message n)
(let ((n rmail-current-message))
(rmail-forget-messages)
(rmail-show-message n))
(if (rmail-summary-exists)
(rmail-select-summary
(rmail-update-summary)))))