[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: pgg-sign(encrypt)-region works but sign tag is ignored
From: |
Katsumi Yamaoka |
Subject: |
Re: pgg-sign(encrypt)-region works but sign tag is ignored |
Date: |
Wed, 06 Dec 2006 10:29:29 +0900 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.91 (gnu/linux) |
>>>>> 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.