[mew-int 01123] Re: GnuPG clear-sign instead of PGP/Mime in Mew 3.0.67

[Tatsuya Kinoshita]

On October 17, 2002, [mew-int 01118],
Alexandre Dulaunoy <adulau at example.com> wrote:

> Is there a possible configuration in  Mew 3.0.x to make clear sign pgp
> instead of the PGP/MIME signature ? Clear sign are directly inside the
> text message. Without making a cut-and-paste to GnuPG ;-)

I have an ad hoc solution, `M-x my-mew-mc-sign RET' in Draft mode.

-- ~/.mew.el -- 
;; For Mailcrypt, GnuPG, and Mew 2.2 or later

(setq mc-default-scheme 'mc-scheme-gpg)

(defun my-mew-mc-sign (arg)
  (interactive "p")
  (let ((mew-use-8bit t))
    (require 'mailcrypt)
    (mc-sign arg)
    (mew-draft-make-message)))

(defun my-mew-body-min ()
  (interactive)
  (save-excursion
    (mew-header-goto-body)
    (point)))

(defun my-mew-body-max ()
  (interactive)
  (save-excursion
    (if (not (mew-attach-p))
	(point-max)
      (mew-attach-move-onto-body)
      (point))))

(defadvice mc-gpg-process-region (around my-mew-cs-fix activate)
  (let* ((cs (mew-charset-to-cs
	      (mew-charset-guess-region (my-mew-body-min) (my-mew-body-max))))
	 (coding-system-for-read cs)
	 (coding-system-for-write cs))
    ad-do-it))
---- 

-- 
Tatsuya Kinoshita