From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/63042 Path: news.gmane.org!not-for-mail From: Max Froumentin Newsgroups: gmane.emacs.gnus.general Subject: Re: Display of GPG results Date: Thu, 27 Apr 2006 15:01:10 +0100 Organization: none Message-ID: <8764kvce3d.fsf@bolshevik.w3.org> References: <871wvtbzwn.fsf@lapin-bleu.net> <87wtdft96c.fsf@lapin-bleu.net> <87d5f6kjcc.fsf@w3.org> <9eslo2alzk.fsf@gowron.rz-berlin.mpg.de> <871wvl95b6.fsf@lapin-bleu.net> <9emze9trg9.fsf@doze.jochen-kuepper.de> <87odyobp8d.fsf@lapin-bleu.net> <87u08gtwjo.fsf@latte.josefsson.org> <877j5bw63y.fsf@bolshevik.w3.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1146146708 1868 80.91.229.2 (27 Apr 2006 14:05:08 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 27 Apr 2006 14:05:08 +0000 (UTC) Original-X-From: ding-owner+m11569@lists.math.uh.edu Thu Apr 27 16:05:02 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FZ772-00085q-7g for ding-account@gmane.org; Thu, 27 Apr 2006 16:04:57 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1FZ76y-00012P-00; Thu, 27 Apr 2006 09:04:52 -0500 Original-Received: from nas01.math.uh.edu ([129.7.128.39]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FZ74P-00012J-00 for ding@lists.math.uh.edu; Thu, 27 Apr 2006 09:02:13 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas01.math.uh.edu with esmtp (Exim 4.52) id 1FZ74N-0004t1-AW for ding@lists.math.uh.edu; Thu, 27 Apr 2006 09:02:13 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FZ74L-0002uC-00 for ; Thu, 27 Apr 2006 16:02:09 +0200 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1FZ740-0007X3-RD for ding@gnus.org; Thu, 27 Apr 2006 16:01:49 +0200 Original-Received: from 82-46-105-190.cable.ubr02.azte.blueyonder.co.uk ([82.46.105.190]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 27 Apr 2006 16:01:48 +0200 Original-Received: from max by 82-46-105-190.cable.ubr02.azte.blueyonder.co.uk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 27 Apr 2006 16:01:48 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Lines: 73 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: 82-46-105-190.cable.ubr02.azte.blueyonder.co.uk User-Agent: Gnus/5.110005 (No Gnus v0.5) Emacs/21.4 (gnu/linux) Cancel-Lock: sha1:C+EW9ZJVuGpNxKJHcBv2izq06ws= X-Spam-Score: -2.6 (--) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:63042 Archived-At: --=-=-= Max Froumentin writes: > I've been working on a patch, which I'll submit once I'll have tested > it a bit more. Basically it adds "multipart/signed" to > gnus-buttonized-mime-types inside gnus-mime-display-security, since > within that function it appears that verification has always been performed. OK, the attached patch seems to work. Basically, it resets the definition of gnus-buttonized-mime-types to nil, and in gnus-mime-display-security, it wraps the body within a redefinition of the variable: (let ((gnus-buttonized-mime-types (if (or (eq mm-verify-option 'always) (eq mm-verify-option 'known)) (append '("multipart/signed") gnus-buttonized-mime-types) gnus-buttonized-mime-types))) Max. --=-=-= Content-Disposition: inline; filename=gnus-art.el.diff Content-Description: diff against 7.168 873,874c873 < (defcustom gnus-buttonized-mime-types (unless (eq mm-verify-option 'never) < '("multipart/signed")) --- > (defcustom gnus-buttonized-mime-types nil 7714,7729c7713,7734 < (save-restriction < (narrow-to-region (point) (point)) < (unless (gnus-unbuttonized-mime-type-p (car handle)) < (gnus-insert-mime-security-button handle)) < (gnus-mime-display-part (cadr handle)) < (unless (bolp) < (insert "\n")) < (unless (gnus-unbuttonized-mime-type-p (car handle)) < (let ((gnus-mime-security-button-line-format < gnus-mime-security-button-end-line-format)) < (gnus-insert-mime-security-button handle))) < (mm-set-handle-multipart-parameter < handle 'gnus-region < (cons (set-marker (make-marker) (point-min)) < (set-marker (make-marker) (point-max)))))) < --- > (let ((gnus-buttonized-mime-types > ;; when this function is called, the signature has been verified, > ;; so we might as well display the button. > (if (or (eq mm-verify-option 'always) (eq mm-verify-option 'known)) > (append '("multipart/signed") gnus-buttonized-mime-types) > gnus-buttonized-mime-types))) > (save-restriction > (narrow-to-region (point) (point)) > (unless (gnus-unbuttonized-mime-type-p (car handle)) > (gnus-insert-mime-security-button handle)) > (gnus-mime-display-part (cadr handle)) > (unless (bolp) > (insert "\n")) > (unless (gnus-unbuttonized-mime-type-p (car handle)) > (let ((gnus-mime-security-button-line-format > gnus-mime-security-button-end-line-format)) > (gnus-insert-mime-security-button handle))) > (mm-set-handle-multipart-parameter > handle 'gnus-region > (cons (set-marker (make-marker) (point-min)) > (set-marker (make-marker) (point-max))))))) > --=-=-=--