[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-draft.el

[Juanma Barranquero]

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)))))))