[Mew-dist 10626] Re: how can i register "A" in mew-summary-mode

[小関 吉則 (KOSEKI Yoshinori)]

もしかしてciteのための関数を変えたいという需要はあるのでしょ
うか?

佐古田> x-citeを使い始めました。
佐古田> mewの本文付き返信コマンド"A"にx-citeを登録したいと思い、以下の設定を加
佐古田> えましたが、read only だと怒られます。

佐古田> (add-hook 'mew-summary-mode-hook
佐古田>           '(lambda ()
佐古田>              (define-key mew-summary-mode-map "A"
佐古田>                'xcite-yank-cur-msg)))
               
佐古田> draft modeでないからというのはわかるのですが、かといってどうしていいか
佐古田> わかりません。
佐古田> ご教授お願いします。

以下のパッチをあてて、

(setq mew-cite-function 'xcite-yank-cur-msg)

と設定してください。

diff -c mew-1.94/mew-vars.el.orig mew-1.94/mew-vars.el
*** mew-1.94/mew-vars.el.orig	Fri Sep  3 16:15:40 1999
--- mew-1.94/mew-vars.el	Thu Sep  9 10:21:43 1999
***************
*** 727,732 ****
--- 727,735 ----
  If 'end, the cursor locates after the citation.
  Otherwise, the cursor is after To:.")
  
+ (defvar mew-cite-function 'mew-draft-cite
+   "*Function for citing an original messages.")
+ 
  ;;
  ;; Signature
  ;; 
diff -c mew-1.94/mew-summary.el.orig mew-1.94/mew-summary.el
*** mew-1.94/mew-summary.el.orig	Fri Sep  3 16:15:40 1999
--- mew-1.94/mew-summary.el	Thu Sep  9 10:21:16 1999
***************
*** 1281,1287 ****
     (save-excursion
       (goto-char (point-max))
       (run-hooks 'mew-before-cite-hook)
!      (mew-draft-cite))
     ;; the cursor is after To:
     (cond
      ((eq mew-summary-reply-with-citation-position 'body)
--- 1281,1287 ----
     (save-excursion
       (goto-char (point-max))
       (run-hooks 'mew-before-cite-hook)
!      (funcall mew-cite-function))
     ;; the cursor is after To:
     (cond
      ((eq mew-summary-reply-with-citation-position 'body)

--
こせき @ Emacs のページ作成中
http://www.NetLaputa.ne.jp/~kose/Emacs/
kose at example.com