From 3ad4ba151206bab41857e65f99bdc352c8e3a057 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 7 Jan 1998 14:52:07 +0000 Subject: [PATCH] Sync with Quassia Gnus v0.22. --- lisp/gnus-draft.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 @@ -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. -- 1.7.10.4