From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/62479 Path: news.gmane.org!not-for-mail From: Daiki Ueno Newsgroups: gmane.emacs.gnus.general Subject: Re: "[GNUPG:] TRUST_UNDEFINED" not indicated Date: Mon, 03 Apr 2006 18:00:14 +0900 Message-ID: References: <2cd46e7f0510031250u66ea1349yb437d539ce4027ef@mail.gmail.com> <877j6mg2af.fsf@latte.josefsson.org> <87lkv1whmh.fsf@latte.josefsson.org> <897751e5-a148-4109-8da6-6f69cce0dec0@well-done.deisui.org> <87d5gd2ts1.fsf@latte.josefsson.org> <87wteiypvv.fsf@latte.josefsson.org> <87irq1evdk.fsf@catnip.gol.com> <0443f268-1caf-4aef-9a06-daa4a59b0682@well-done.deisui.org> <87slp587cw.fsf@latte.josefsson.org> <87odzs8c0a.fsf@latte.josefsson.org> <87lkurytqu.fsf@pacem.orebokech.com> <874q1dr7fi.fsf@latte.josefsson.org> <874q1d645k.fsf@pacem.orebokech.com> <5772fa8a-0f53-4232-9522-a97835b413e7@well-done.deisui.org> <873bgvcaew.fsf@pacem.orebokech.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="Multipart_Mon_Apr__3_18:00:14_2006-1" X-Trace: sea.gmane.org 1144054874 22754 80.91.229.2 (3 Apr 2006 09:01:14 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 3 Apr 2006 09:01:14 +0000 (UTC) Cc: Reiner Steib , Simon Josefsson , Original-X-From: ding-owner+m11005@lists.math.uh.edu Mon Apr 03 11:01:07 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 1FQKvd-00065n-PC for ding-account@gmane.org; Mon, 03 Apr 2006 11:00:55 +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 1FQKvY-0007pS-00; Mon, 03 Apr 2006 04:00:48 -0500 Original-Received: from nas02.math.uh.edu ([129.7.128.40]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FQKvA-0007pN-00 for ding@lists.math.uh.edu; Mon, 03 Apr 2006 04:00:24 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas02.math.uh.edu with esmtp (Exim 4.52) id 1FQKv6-0004jv-OZ for ding@lists.math.uh.edu; Mon, 03 Apr 2006 04:00:22 -0500 Original-Received: from g96069.scn-net.ne.jp ([210.231.96.69] helo=well-done.deisui.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FQKv5-0004D7-00 for ; Mon, 03 Apr 2006 11:00:19 +0200 Original-Received: from [150.82.173.221] (helo=well-done.deisui.org) by well-done.deisui.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1FQKv3-00005b-8t; Mon, 03 Apr 2006 18:00:17 +0900 Original-To: Romain Francoise X-Attribution: DU In-Reply-To: <873bgvcaew.fsf@pacem.orebokech.com> (Romain Francoise's message of "Mon, 03 Apr 2006 10:48:07 +0200") User-Agent: T-gnus/6.17.2 (based on No Gnus v0.2) SEMI/1.14.6 (Maruoka) FLIM/1.14.7 (=?ISO-8859-4?Q?Sanj=F2?=) APEL/10.6 MULE XEmacs/21.4 (patch 17) (Jumbo Shrimp) (i686-pc-linux) X-Spam-Score: -2.5 (--) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:62479 Archived-At: --Multipart_Mon_Apr__3_18:00:14_2006-1 Content-Type: text/plain; charset=US-ASCII >>>>> In <873bgvcaew.fsf@pacem.orebokech.com> >>>>> Romain Francoise wrote: > However, there are still issues with the asynchronous interface; for > example if one moves with N and P through a group where all articles are > signed faster than GnuPG can check the signatures, sometimes this error > is signalled: > | error in process filter: sit-for: Selecting deleted buffer > | error in process filter: Selecting deleted buffer I hope this patch will help you. --Multipart_Mon_Apr__3_18:00:14_2006-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="pgg-gpg.el.diff" Content-Transfer-Encoding: 7bit Index: lisp/pgg-gpg.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/pgg-gpg.el,v retrieving revision 7.17 diff -u -r7.17 pgg-gpg.el --- lisp/pgg-gpg.el 29 Mar 2006 07:51:17 -0000 7.17 +++ lisp/pgg-gpg.el 3 Apr 2006 08:58:19 -0000 @@ -106,33 +106,34 @@ process)) (defun pgg-gpg-process-filter (process input) - (save-excursion - (if pgg-gpg-debug - (save-excursion - (set-buffer (get-buffer-create " *pgg-gpg-debug*")) - (goto-char (point-max)) - (insert input))) - (set-buffer (process-buffer process)) - (goto-char (point-max)) - (insert input) - (goto-char pgg-gpg-read-point) - (beginning-of-line) - (while (looking-at ".*\n") ;the input line is finished + (if (buffer-live-p (process-buffer process)) (save-excursion - (if (looking-at "\\[GNUPG:] \\([A-Z_]+\\)\\>.*") - (let* ((status (match-string 1)) - (symbol (intern-soft (concat "pgg-gpg-status-" status))) - (entry (member status pgg-gpg-pending-status-list))) - (if entry - (setq pgg-gpg-pending-status-list - (delq (car entry) - pgg-gpg-pending-status-list))) - (if (and symbol - (fboundp symbol)) - (funcall symbol process (buffer-substring (match-beginning 1) - (match-end 0))))))) - (forward-line)) - (setq pgg-gpg-read-point (point)))) + (if pgg-gpg-debug + (save-excursion + (set-buffer (get-buffer-create " *pgg-gpg-debug*")) + (goto-char (point-max)) + (insert input))) + (set-buffer (process-buffer process)) + (goto-char (point-max)) + (insert input) + (goto-char pgg-gpg-read-point) + (beginning-of-line) + (while (looking-at ".*\n") ;the input line is finished + (save-excursion + (if (looking-at "\\[GNUPG:] \\([A-Z_]+\\)\\>.*") + (let* ((status (match-string 1)) + (symbol (intern-soft (concat "pgg-gpg-status-" status))) + (entry (member status pgg-gpg-pending-status-list))) + (if entry + (setq pgg-gpg-pending-status-list + (delq (car entry) + pgg-gpg-pending-status-list))) + (if (and symbol + (fboundp symbol)) + (funcall symbol process (buffer-substring (match-beginning 1) + (match-end 0))))))) + (forward-line)) + (setq pgg-gpg-read-point (point))))) (defun pgg-gpg-process-sentinel (process status) (set-process-filter process nil) @@ -174,19 +175,20 @@ (process-send-eof process) (while (eq (process-status process) 'run) (sit-for 0.1)) - (save-excursion - (set-buffer (process-buffer process)) - (setq status-list (copy-sequence status-list)) - (let ((pointer status-list)) - (while pointer - (goto-char (point-min)) - (unless (re-search-forward - (concat "^\\[GNUPG:] " (car pointer) "\\>") - nil t) - (setq status-list (delq (car pointer) status-list))) - (setq pointer (cdr pointer)))) - (kill-buffer (process-buffer process)) - status-list)) + (if (buffer-live-p (process-buffer process)) + (save-excursion + (set-buffer (process-buffer process)) + (setq status-list (copy-sequence status-list)) + (let ((pointer status-list)) + (while pointer + (goto-char (point-min)) + (unless (re-search-forward + (concat "^\\[GNUPG:] " (car pointer) "\\>") + nil t) + (setq status-list (delq (car pointer) status-list))) + (setq pointer (cdr pointer)))) + (kill-buffer (process-buffer process)) + status-list))) (defun pgg-gpg-status-USERID_HINT (process line) (if (string-match "\\`USERID_HINT \\([^ ]+\\) \\(.*\\)" line) --Multipart_Mon_Apr__3_18:00:14_2006-1 Content-Type: text/plain; charset=US-ASCII Regards, -- Daiki Ueno --Multipart_Mon_Apr__3_18:00:14_2006-1--