/[emacs]/emacs/lisp/gnus/gnus-draft.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-draft.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by fx, Thu Nov 9 14:17:06 2000 UTC revision 1.5 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 118  Line 118 
118      (while (setq article (pop articles))      (while (setq article (pop articles))
119        (gnus-summary-remove-process-mark article)        (gnus-summary-remove-process-mark article)
120        (unless (memq article gnus-newsgroup-unsendable)        (unless (memq article gnus-newsgroup-unsendable)
121          (let ((message-sending-message          (let ((message-sending-message
122                 (format "Sending message %d of %d..."                 (format "Sending message %d of %d..."
123                         (- total (length articles)) total)))                         (- total (length articles)) total)))
124            (gnus-draft-send article gnus-newsgroup-name t))            (gnus-draft-send article gnus-newsgroup-name t))
125          (gnus-summary-mark-article article gnus-canceled-mark)))))          (gnus-summary-mark-article article gnus-canceled-mark)))))
# Line 128  Line 128 
128    "Send message ARTICLE."    "Send message ARTICLE."
129    (let ((message-syntax-checks (if interactive nil    (let ((message-syntax-checks (if interactive nil
130                                   'dont-check-for-anything-just-trust-me))                                   'dont-check-for-anything-just-trust-me))
131          (message-inhibit-body-encoding (or (not group)          (message-inhibit-body-encoding (or (not group)
132                                             (equal group "nndraft:queue")                                             (equal group "nndraft:queue")
133                                             message-inhibit-body-encoding))                                             message-inhibit-body-encoding))
134          (message-send-hook (and group (not (equal group "nndraft:queue"))          (message-send-hook (and group (not (equal group "nndraft:queue"))
# Line 185  Line 185 
185             article)             article)
186        (while (setq article (pop articles))        (while (setq article (pop articles))
187          (unless (memq article unsendable)          (unless (memq article unsendable)
188            (let ((message-sending-message            (let ((message-sending-message
189                   (format "Sending message %d of %d..."                   (format "Sending message %d of %d..."
190                           (- total (length articles)) total)))                           (- total (length articles)) total)))
191              (gnus-draft-send article)))))))              (gnus-draft-send article)))))))
192    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26