[mew-dist 22173] Re: about PGP clear signature

[Tatsuya Kinoshita]

On October 31, 2002, [mew-dist 22171],
Nobuhiro IMAI <nov at example.com> wrote:

> ; mailcrypt
> (load-library "mailcrypt")
> (mc-setversion "gpg")
> (autoload 'mc-sign-region "mc-toplev" nil t)
> (defadvice mc-gpg-process-region (around cs-fix activate)
>   (let ((coding-system-for-read  'iso-2022-7bit)
> 	(coding-system-for-write 'iso-2022-7bit))
>     ad-do-it))
> 
> 手元ではこの defadvice でうまく動いています。

それだとISO-8859-1などでうまくいきません。もう少しだけ改善した
設定を、[mew-int 01123]で公開しました。(M-x my-mew-mc-sign RET)

-- ~/.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))
---- 

-- 
木下達也