Don't unnecessarily run file-truename on remote files when checking drafts.

	* gnus-draft.el (gnus-draft-check-draft-articles): Don't unnecessarily
	run file-truename on remote files.  This can be expensive and even
	prevent one from editing drafts if some unrelated buffer has a stale
	connection.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5a798ce..e9096cf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2010-10-20  Andreas Seltenreich  <seltenreich@gmx.de>
+
+       * gnus-draft.el (gnus-draft-check-draft-articles): Don't unnecessarily
+       run file-truename on remote files.  This can be expensive and even
+       prevent one from editing drafts if some unrelated buffer has a stale
+       connection.
+
 2010-10-20  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * shr.el (shr-find-fill-point): Shorten line if the preceding char is

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index d538730..e397a70 100644 (file)
--- 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))