Add the optional second parameter to `local-variable-p' to be compatible with XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index adff157..6e063b4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * auth-source.el (auth-source-create): Add the optional second
+       parameter to `local-variable-p' to be compatible with XEmacs.
+
 2011-01-02  Wang Diancheng  <dcwang@kingbase.com.cn>  (tiny change)
 
        * nnml.el (nnml-request-article): Allow requesting by Message-ID to

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 5d38630..70d9323 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1,6 +1,6 @@
 ;;; auth-source.el --- authentication sources for Gnus and Emacs
 
-;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
 
 ;; Author: Ted Zlatanov <tzz@lifelogs.com>
 ;; Keywords: news
@@ -370,7 +370,7 @@ Return structure as specified by MODE."
            ;; making `epa-file-encrypt-to' local to this buffer lets
            ;; epa-file skip the key selection query (see the
            ;; `local-variable-p' check in `epa-file-write-region').
-           (unless (local-variable-p 'epa-file-encrypt-to)
+           (unless (local-variable-p 'epa-file-encrypt-to (current-buffer))
              (make-local-variable 'epa-file-encrypt-to))
            (if (listp auth-source-gpg-encrypt-to)
                (setq epa-file-encrypt-to auth-source-gpg-encrypt-to)))