[gnus git] branch master updated: =1= Clean up things noted by Stefan.

       via  47871c62ce6ce2dd0fe2d883bda3f880228bd490 (commit)
      from  6c2c3479dcaf5171b77e24aa72b442eb1e36f7d7 (commit)


- Log -----------------------------------------------------------------
commit 47871c62ce6ce2dd0fe2d883bda3f880228bd490
Author: Lars Ingebrigtsen <[email protected]>
Date:   Wed Feb 2 21:21:51 2011 -0800

    Clean up things noted by Stefan.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31dc090..44ece17 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-03  Lars Ingebrigtsen  <[email protected]>
 
+	* 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
diff --git a/lisp/message.el b/lisp/message.el
index 3f9199c..fc37662 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4389,7 +4389,6 @@ This function could be useful in `message-setup-hook'."
 	(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))
@@ -6820,7 +6819,6 @@ Useful functions to put in this list include:
   (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)
@@ -7341,11 +7339,9 @@ Optional DIGEST will use digest to forward."
 (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")))
+   "\n-------------------- End of forwarded message --------------------\n"))
 
 (defun message-forward-make-body-digest-mime (forward-buffer)
   (insert "\n<#multipart type=digest>\n")

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    3 +++
 lisp/message.el |   10 +++-------
 2 files changed, 6 insertions(+), 7 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project