[gnus git] branch master updated: =1= gnus-draft: remove progn around gnus-draft-setup

       via  647c17891849c561534af42b619e9679259ba2b3 (commit)
      from  bd10f37e4630719920f82122d7c7ae7523567762 (commit)


- Log -----------------------------------------------------------------
commit 647c17891849c561534af42b619e9679259ba2b3
Author: Julien Danjou <[email protected]>
Date:   Thu Feb 3 17:47:32 2011 +0100

    gnus-draft: remove progn around gnus-draft-setup
    
    Signed-off-by: Julien Danjou <[email protected]>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ea9425..b70c9ac 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-02-03  Julien Danjou  <[email protected]>
+
+	* gnus-draft.el: Remove progn around gnus-draft-setup.
+
 2011-02-03  Lars Ingebrigtsen  <[email protected]>
 
 	* gnus-start.el (gnus-read-active-for-groups): This function is never
diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 02d6393..b613b6e 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -244,15 +244,8 @@ Obeys the standard process/prefix convention."
   :version "23.1" ;; No Gnus
   :type 'hook)
 
-;;; Utility functions
 
-;;;!!!If this is byte-compiled, it fails miserably.
-;;;!!!This is because `gnus-setup-message' uses uninterned symbols.
-;;;!!!This has been fixed in recent versions of Emacs and XEmacs,
-;;;!!!but for the time being, we'll just run this tiny function uncompiled.
-
-(progn
-  (defun gnus-draft-setup (narticle group &optional restore)
+(defun gnus-draft-setup (narticle group &optional restore)
     (let (ga)
       (gnus-setup-message 'forward
 	(let ((article narticle))
@@ -293,7 +286,7 @@ Obeys the standard process/prefix convention."
 		(gnus-request-set-mark ,(car ga) (list (list (list ,article)
 							     'add '(reply)))))
 	     'send))))
-      (run-hooks 'gnus-draft-setup-hook))))
+    (run-hooks 'gnus-draft-setup-hook)))
 
 (defun gnus-draft-article-sendable-p (article)
   "Say whether ARTICLE is sendable."

-----------------------------------------------------------------------
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     |    4 ++
 lisp/gnus-draft.el |   91 ++++++++++++++++++++++++----------------------------
 2 files changed, 46 insertions(+), 49 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