X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-draft.el;h=e397a701da84be49f1ad12b5ab1d55b2b828d896;hb=322754077c488cd96a9479ae95c7e5cae2b06b7f;hp=d53873045fde0cabe9cfae0b3fd37bb36f5bf26f;hpb=a95625ffaedb69d94af914073263fc4b06f0fec1;p=gnus

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index d53873045..e397a701d 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -310,6 +310,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))