From: Francesco Potortì <pot@gnu.org>
Date: Tue, 7 Jan 2003 14:34:44 +0000 (+0000)
Subject: (unforward-rmail-message): Skip all newlines
X-Git-Tag: ttn-vms-21-2-B4~11788
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59cb5b9b75107883a55655b231c10c8cbb56334a;p=emacs.git

(unforward-rmail-message): Skip all newlines
after the initial separator.
(unforward-rmail-message): Forwarded-From: and Forwarded-Date:
instead of Forwarded-from: and Forwarded-date:.
---

diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el
index ff4673901b2..1bfd1d1e8bf 100644
--- a/lisp/mail/undigest.el
+++ b/lisp/mail/undigest.el
@@ -234,6 +234,7 @@ following the containing message."
 	  (cond ((re-search-forward
 		  "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t)
 		 (forward-line 1)
+		 (skip-chars-forward "\n")
 		 (setq beg (point))
 		 (setq end (if (re-search-forward "^----.*[^- \t\n]" nil t)
 			       (match-beginning 0) (point-max)))
@@ -269,8 +270,8 @@ following the containing message."
 	  (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 "Forwarded-From: " forwarded-from "\n")
+	  (insert "Forwarded-Date: " forwarded-date "\n")
 	  (insert forward-msg)
 	  (save-restriction
 	    (goto-char (point-min))