Re: pgg-sign(encrypt)-region works but sign tag is ignored

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> 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.