From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/8348 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.user Subject: Re: pgg-sign(encrypt)-region works but sign tag is ignored Date: Wed, 06 Dec 2006 10:29:29 +0900 Organization: Emacsen advocacy group Message-ID: References: <871wne8tk0.fsf@mat.ucm.es> NNTP-Posting-Host: dough.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1165369251 12661 80.91.229.10 (6 Dec 2006 01:40:51 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 6 Dec 2006 01:40:51 +0000 (UTC) Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Wed Dec 06 02:40:50 2006 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by dough.gmane.org with esmtp (Exim 4.50) id 1GrlmE-0004ej-Ae for gegu-info-gnus-english@m.gmane.org; Wed, 06 Dec 2006 02:40:50 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GrlmD-0004up-QY for gegu-info-gnus-english@m.gmane.org; Tue, 05 Dec 2006 20:40:49 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail Original-Newsgroups: gnu.emacs.gnus Original-Lines: 71 Original-X-Trace: individual.net Y0Z2KeK8PUtxKi0vYwX+6wGFWeQmkz+V8n7Q+u8e2//O0WqX0= 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.110006 (No Gnus v0.6) Emacs/22.0.91 (gnu/linux) Cancel-Lock: sha1:Giu4KMURVq1vt8+eTNofHYJhKVo= Original-Xref: shelby.stanford.edu gnu.emacs.gnus:78533 Original-To: info-gnus-english@gnu.org X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:8348 Archived-At: >>>>> In <871wne8tk0.fsf@mat.ucm.es> Uwe Brauer wrote: > This seems really odd, I can sign/encrypt now a region with > pgg-sign(encrypt)-region > but when I use > C-c C-m s p > and then want to send the mail, I am asked for the passwd but then > nothing happens. So this now looks as a mml problem. Please do some tests. For every Elisp form, copy it to the *scratch* buffer and type `C-j' at the rightmost position of the last line. 1. Check whether the `with-syntax-table' macro, which `mml-parse' uses, works. --8<---------------cut here---------------start------------->8--- (let ((table (copy-syntax-table emacs-lisp-mode-syntax-table))) (modify-syntax-entry ?= " " table) (with-temp-buffer (with-syntax-table table (insert "foo=bar") (goto-char (point-min)) (forward-sexp 1) (eolp)))) --8<---------------cut here---------------end--------------->8--- It should return nil. There is still a known bug in XEmacs 21.5. Though you're using XEmacs 21.4.18 (with no mule, no file-coding), I cannot test it since I have only the latest XEmacs 21.4.19. 2. Check whether the `mml-parse' function parses a MML tag. --8<---------------cut here---------------start------------->8--- (with-temp-buffer (insert "<#secure method=pgpmime mode=sign>\n") (goto-char (point-min)) (require 'mml) (mml-parse)) --8<---------------cut here---------------end--------------->8--- It should return: ((part (sign . "pgpmime") (tag-location . 1) (contents . ""))) If the `with-syntax-table' macro doesn't work, you will not get this. 3. Check whether a MML function generates a signed message. --8<---------------cut here---------------start------------->8--- (with-temp-buffer (mml-generate-mime-1 '(part (sign . "pgpmime") (tag-location . 1) (contents . "testing.\n"))) (buffer-string)) --8<---------------cut here---------------end--------------->8--- You might have to use the following instead. --8<---------------cut here---------------start------------->8--- (with-temp-buffer (mml-generate-mime-1 '(part (sign . "pgpmime") (tag-location . 1) (contents . "testing.\n") (sender . "oub"))) (buffer-string)) --8<---------------cut here---------------end--------------->8--- It should return a signed message.