>>>>> In <[EMAIL PROTECTED]> 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.
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
