Re: auth-sources default

[Ted Zlatanov <tzz@lifelogs.com>]

[-- Attachment #1: Type: text/plain, Size: 639 bytes --]

On Sat, 12 Feb 2011 17:07:30 -0600 Ted Zlatanov <tzz@lifelogs.com> wrote: 

TZ> On Sat, 12 Feb 2011 17:19:30 -0500 Michael Piotrowski <mxp@dynalabs.de> wrote: 
MP> No, I checked this.  I'm using XEmacs 21.4.22; according to the
MP> documentation, GNU Emacs' `plist-get' "accepts a malformed plist
MP> argument".  This is not the case in XEmacs--maybe that's the problem?

TZ> Yeah.  I can't fix it for a while but if someone with XEmacs access
TZ> wants to take a shot at it, go ahead.  Sorry for the trouble.

Try out the attached patch and let me know if it works for you.  If so I
will commit it (it's harmless otherwise).

Thanks
Ted


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: auth-plist-xemacs.patch --]
[-- Type: text/x-diff, Size: 634 bytes --]

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index b7a7b41..d0ca4a2 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -333,7 +333,10 @@ If the value is not a list, symmetric encryption will be used."
 Using the plist ENTRY, get the :host, :protocol, and :user search
 parameters.  Accepts :port as an alias to :protocol.  Sets all
 the parameters to t if they are missing."
-  (let (val)
+  (let ((entry (if (stringp entry)
+                   nil
+                 entry))
+        val)
     (when (setq val (plist-get entry :host))
       (oset backend host val))
     (when (setq val (plist-get entry :user))