From e49ba7017285ef748eeaee9237cd13c24760e03b Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 8 Jan 2003 10:13:57 +0000 Subject: (unforward-rmail-message): Don't use global variable `n'. --- lisp/mail/undigest.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/mail/undigest.el') diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 6176f0b4fcd..d5db68f33c5 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -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))))) -- cgit v1.2.1