[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-draft.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-draft.el |
Date: |
Tue, 04 Feb 2003 08:06:39 -0500 |
Index: emacs/lisp/gnus/gnus-draft.el
diff -c emacs/lisp/gnus/gnus-draft.el:1.4 emacs/lisp/gnus/gnus-draft.el:1.5
*** emacs/lisp/gnus/gnus-draft.el:1.4 Thu Nov 9 09:17:06 2000
--- emacs/lisp/gnus/gnus-draft.el Tue Feb 4 08:06:38 2003
***************
*** 118,125 ****
(while (setq article (pop articles))
(gnus-summary-remove-process-mark article)
(unless (memq article gnus-newsgroup-unsendable)
! (let ((message-sending-message
! (format "Sending message %d of %d..."
(- total (length articles)) total)))
(gnus-draft-send article gnus-newsgroup-name t))
(gnus-summary-mark-article article gnus-canceled-mark)))))
--- 118,125 ----
(while (setq article (pop articles))
(gnus-summary-remove-process-mark article)
(unless (memq article gnus-newsgroup-unsendable)
! (let ((message-sending-message
! (format "Sending message %d of %d..."
(- total (length articles)) total)))
(gnus-draft-send article gnus-newsgroup-name t))
(gnus-summary-mark-article article gnus-canceled-mark)))))
***************
*** 128,134 ****
"Send message ARTICLE."
(let ((message-syntax-checks (if interactive nil
'dont-check-for-anything-just-trust-me))
! (message-inhibit-body-encoding (or (not group)
(equal group "nndraft:queue")
message-inhibit-body-encoding))
(message-send-hook (and group (not (equal group "nndraft:queue"))
--- 128,134 ----
"Send message ARTICLE."
(let ((message-syntax-checks (if interactive nil
'dont-check-for-anything-just-trust-me))
! (message-inhibit-body-encoding (or (not group)
(equal group "nndraft:queue")
message-inhibit-body-encoding))
(message-send-hook (and group (not (equal group "nndraft:queue"))
***************
*** 185,192 ****
article)
(while (setq article (pop articles))
(unless (memq article unsendable)
! (let ((message-sending-message
! (format "Sending message %d of %d..."
(- total (length articles)) total)))
(gnus-draft-send article)))))))
--- 185,192 ----
article)
(while (setq article (pop articles))
(unless (memq article unsendable)
! (let ((message-sending-message
! (format "Sending message %d of %d..."
(- total (length articles)) total)))
(gnus-draft-send article)))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-draft.el,
Juanma Barranquero <=