From: morioka <morioka>
Date: Wed, 7 Jan 1998 14:52:07 +0000 (+0000)
Subject: Sync with Quassia Gnus v0.22.
X-Git-Tag: gnus-6_7-tomo-199811302358~263
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3ad4ba151206bab41857e65f99bdc352c8e3a057;p=elisp%2Fgnus.git-

Sync with Quassia Gnus v0.22.
---

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 9d00c55..cad3eef 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -1,4 +1,4 @@
-;;; gnus-draft.el --- draft message support for Gnus
+;;; gnus-draft.el --- draft message support for Semi-gnus
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
@@ -113,7 +113,8 @@
 (defun gnus-draft-send (article &optional group)
   "Send message ARTICLE."
   (gnus-draft-setup article (or group "nndraft:queue"))
-  (let ((message-syntax-checks 'dont-check-for-anything-just-trust-me))
+  (let ((message-syntax-checks 'dont-check-for-anything-just-trust-me)
+	message-send-hook)
     (message-send-and-exit)))
 
 (defun gnus-draft-send-all-messages ()
@@ -158,7 +159,6 @@
     (let ((article narticle))
       (message-mail)
       (erase-buffer)
-      (message "%s %s" group article)
       (if (not (gnus-request-restore-buffer article group))
 	  (error "Couldn't restore the article")
 	;; Insert the separator.