From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/76619 Path: news.gmane.org!not-for-mail From: Ted Zlatanov Newsgroups: gmane.emacs.gnus.general Subject: Re: auth-sources default Date: Sun, 13 Feb 2011 08:07:49 -0600 Organization: =?utf-8?B?0KLQtdC+0LTQvtGAINCX0LvQsNGC0LDQvdC+0LI=?= @ Cienfuegos Message-ID: <87sjvs58p6.fsf@lifelogs.com> References: <87vd0phqw9.fsf@lifelogs.com> <87r5bcj1hp.fsf@lifelogs.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1297606111 30934 80.91.229.12 (13 Feb 2011 14:08:31 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 13 Feb 2011 14:08:31 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M24962@lists.math.uh.edu Sun Feb 13 15:08:27 2011 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Poccl-0000zR-4E for ding-account@gmane.org; Sun, 13 Feb 2011 15:08:27 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1PoccR-000196-U3; Sun, 13 Feb 2011 08:08:08 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1PoccP-00018n-Sg for ding@lists.math.uh.edu; Sun, 13 Feb 2011 08:08:05 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1PoccO-0007ZO-8Q for ding@lists.math.uh.edu; Sun, 13 Feb 2011 08:08:05 -0600 Original-Received: from lo.gmane.org ([80.91.229.12]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1PoccN-0004j3-HP for ding@gnus.org; Sun, 13 Feb 2011 15:08:03 +0100 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1PoccM-0000om-SC for ding@gnus.org; Sun, 13 Feb 2011 15:08:02 +0100 Original-Received: from c-67-186-102-106.hsd1.il.comcast.net ([67.186.102.106]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 13 Feb 2011 15:08:02 +0100 Original-Received: from tzz by c-67-186-102-106.hsd1.il.comcast.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 13 Feb 2011 15:08:02 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 42 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: c-67-186-102-106.hsd1.il.comcast.net X-Face: bd.DQ~'29fIs`T_%O%C\g%6jW)yi[zuz6;d4V0`@y-~$#3P_Ng{@m+e4o<4P'#(_GJQ%TT= D}[Ep*b!\e,fBZ'j_+#"Ps?s2!4H2-Y"sx" User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:h525waVge4ItGCtgjrAHz1uq6nM= X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:76619 Archived-At: --=-=-= Content-Type: text/plain On Sat, 12 Feb 2011 17:07:30 -0600 Ted Zlatanov wrote: TZ> On Sat, 12 Feb 2011 17:19:30 -0500 Michael Piotrowski 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 --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=auth-plist-xemacs.patch 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)) --=-=-=--