Merge chages made in Gnus trunk.

[bpt/emacs.git] / lisp / gnus / gnus-draft.el

diff --git a/lisp/gnus/gnus-draft.el b/lisp/gnus/gnus-draft.el
index c04ea13..e13bb88 100644 (file)
--- a/lisp/gnus/gnus-draft.el
+++ b/lisp/gnus/gnus-draft.el
@@ -1,7 +1,7 @@
 ;;; gnus-draft.el --- draft message support for Gnus
 
 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;;   2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -221,7 +221,8 @@ Obeys the standard process/prefix convention."
            (let ((message-sending-message
                   (format "Sending message %d of %d..."
                           (- total (length articles)) total)))
-             (gnus-draft-send article))))))))
+             (gnus-draft-send article))))))
+    (gnus-group-refresh-group "nndraft:queue")))
 
 ;;;###autoload
 (defun gnus-draft-reminder ()
@@ -310,6 +311,8 @@ Obeys the standard process/prefix convention."
          (while buffs
            (set-buffer (setq buff (pop buffs)))
            (if (and buffer-file-name
+                    (equal (file-remote-p file)
+                           (file-remote-p buffer-file-name))
                     (string-equal (file-truename buffer-file-name)
                                   (file-truename file))
                     (buffer-modified-p))
@@ -325,5 +328,4 @@ Obeys the standard process/prefix convention."
 
 (provide 'gnus-draft)
 
-;; arch-tag: 3d92af58-8c97-4a5c-9db4-a98e85198022
 ;;; gnus-draft.el ends here