[Emacs-diffs] /srv/bzr/emacs/trunk r103088: message.el (message-forward-make-body-digest-plain)

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103088
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2011-02-03 05:26:36 +0000
message:
  message.el (message-forward-make-body-digest-plain)
   (message-followup, message-reply): Clean up things noted by Stefan.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/message.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-02-03 05:21:20 +0000
+++ b/lisp/gnus/ChangeLog       2011-02-03 05:26:36 +0000
@@ -1,5 +1,8 @@
 2011-02-03  Lars Ingebrigtsen  <address@hidden>
 
+       * message.el (message-forward-make-body-digest-plain)
+       (message-followup, message-reply): Clean up things noted by Stefan.
+
        * gnus-art.el (gnus-article-setup-buffer): Stop the date timer if
        gnus-article-update-date-headers is nil.
        (gnus-article-date-headers): Rip out the old -treat-date-* stuff, since

=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el      2011-02-01 14:09:20 +0000
+++ b/lisp/gnus/message.el      2011-02-03 05:26:36 +0000
@@ -4345,7 +4345,6 @@
        (tembuf (message-generate-new-buffer-clone-locals " message temp"))
        (curbuf (current-buffer))
        (id (message-make-message-id)) (n 1)
-        required-mail-headers           ;FIXME: Unused, right?  --Stef
         plist total header)
     (while (not (eobp))
       (if (< (point-max) (+ p message-send-mail-partially-limit))
@@ -6776,7 +6775,6 @@
   (require 'gnus-sum)                  ; for gnus-list-identifiers
   (let ((cur (current-buffer))
        from subject date
-        reply-to to cc               ;FIXME: These 3 seem to be unused?  --Stef
        references message-id follow-to
        (inhibit-point-motion-hooks t)
        (message-this-is-mail t)
@@ -7297,11 +7295,9 @@
 (defun message-forward-make-body-digest-plain (forward-buffer)
   (insert
    "\n-------------------- Start of forwarded message --------------------\n")
-  (let ((b (point)) e)                  ;FIXME: Not used, right?  --Stef
-    (mml-insert-buffer forward-buffer)
-    (setq e (point))
-    (insert
-     "\n-------------------- End of forwarded message 
--------------------\n")))
+  (mml-insert-buffer forward-buffer)
+  (insert
+   "\n-------------------- End of forwarded message --------------------\n"))
 
 (defun message-forward-make-body-digest-mime (forward-buffer)
   (insert "\n<#multipart type=digest>\n")