From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68303 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Gnus NoCeM and EasyPG Date: Tue, 17 Feb 2009 10:37:04 +0900 Organization: Emacsen advocacy group Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1234834728 26255 80.91.229.12 (17 Feb 2009 01:38:48 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 17 Feb 2009 01:38:48 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M16743@lists.math.uh.edu Tue Feb 17 02:40:03 2009 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.50) id 1LZEwM-0002ZX-A1 for ding-account@gmane.org; Tue, 17 Feb 2009 02:40:02 +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 1LZEuC-0006Cb-5h; Mon, 16 Feb 2009 19:37:48 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1LZEuA-0006CN-Lx for ding@lists.math.uh.edu; Mon, 16 Feb 2009 19:37:46 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1LZEu7-0007Lh-G8 for ding@lists.math.uh.edu; Mon, 16 Feb 2009 19:37:46 -0600 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1LZEuR-0003Rs-00 for ; Tue, 17 Feb 2009 02:38:03 +0100 Original-Received: from localhost ([127.0.0.1]:42501) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1LZEtX-0000t0-9C for ding@gnus.org; Mon, 16 Feb 2009 19:37:07 -0600 X-Hashcash: 1:20:090217:ding@gnus.org::WvAfZlxUO40wYMsP:00001BUh X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.0.90 (gnu/linux) Cancel-Lock: sha1:l7wUAz7h3OBRoNZGJi0XeUBSDtc= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68303 Archived-At: --=-=-= Hi, gnus-nocem.el still uses PGG. Isn't it better to use EasyPG by default? The patch I've already verified is below. To use this, set `gnus-use-nocem' to t, or the number of group level that you have set to nntp groups. Cf. (info "(gnus)NoCeM") 2009-02-17 Katsumi Yamaoka * gnus-nocem.el (gnus-nocem-groups): Remove invalid NoCeM groups. (gnus-nocem-issuers): List currently active issuers. (gnus-nocem-verifyer): Default to gnus-nocem-epg-verify. (gnus-nocem-epg-verify): New function. --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- gnus-nocem.el~ 2009-01-22 08:09:02 +0000 +++ gnus-nocem.el 2009-02-17 01:35:52 +0000 @@ -38,18 +38,20 @@ :group 'gnus-score) (defcustom gnus-nocem-groups - '("news.lists.filters" "news.admin.net-abuse.bulletins" - "alt.nocem.misc" "news.admin.net-abuse.announce") + '("news.lists.filters" "alt.nocem.misc") "*List of groups that will be searched for NoCeM messages." :group 'gnus-nocem :type '(repeat (string :tag "Group"))) (defcustom gnus-nocem-issuers - '("AutoMoose-1" ; CancelMoose[tm] - "clewis@ferret.ocunix" ; Chris Lewis - "cosmo.roadkill" - "SpamHippo" - "hweede@snafu.de") + '("Adri Verhoef" + "alba-nocem@albasani.net" + "bleachbot@httrack.com" + "news@arcor-online.net" + "news@uni-berlin.de" + "nocem@arcor.de" + "pgpmoose@killfile.org" + "xjsppl@gmx.de") "*List of NoCeM issuers to pay attention to. This can also be a list of `(ISSUER CONDITION ...)' elements. @@ -71,12 +73,13 @@ :group 'gnus-nocem :type 'integer) -(defcustom gnus-nocem-verifyer 'pgg-verify +(defcustom gnus-nocem-verifyer 'gnus-nocem-epg-verify "*Function called to verify that the NoCeM message is valid. -One likely value is `pgg-verify'. If the function in this variable -isn't bound, the message will be used unconditionally." +One likely value is `gnus-nocem-epg-verify'. If the function in this +variable isn't bound, the message will be used unconditionally." :group 'gnus-nocem - :type '(radio (function-item pgg-verify) + :type '(radio (function-item gnus-nocem-epg-verify) + (function-item pgg-verify) (function-item mc-verify) (function :tag "other"))) @@ -392,6 +395,21 @@ (and gnus-nocem-hashtb (gethash id gnus-nocem-hashtb))) +(autoload 'epg-make-context "epg") +(eval-when-compile + (autoload 'epg-verify-string "epg") + (autoload 'epg-context-result-for "epg") + (autoload 'epg-signature-status "epg")) + +(defun gnus-nocem-epg-verify () + "Return t if EasyPG verifies a signed message in the current buffer." + (let ((context (epg-make-context 'OpenPGP)) + result) + (epg-verify-string context (buffer-string)) + (and (setq result (epg-context-result-for context 'verify)) + (not (cdr result)) + (eq (epg-signature-status (car result)) 'good)))) + (provide 'gnus-nocem) ;; arch-tag: 0e0c74ea-2f8e-4f3e-8fff-09f767c1adef --=-=-=--