[Mew-dist 09351] Re: Can you "xcite"?

[Shun-ichi GOTO ( 後藤 俊一 )]

後藤＠太陽計測です

>>>>> at Wed, 16 Jun 1999 06:41:02 +0900, taka <taka at example.com> said,

白井> このメールは後藤さんが引用したかずさんのメールは ">" だけなので
白井> Mew の方です。また、そのときも mew-cite-prefix-function では
白井> xcite の関数を使うようにしています。

後藤> ちなみに私は、C-c C-y に xcite-yank-cur-msgを当てていて
後藤> mew-cite-hookは指定しておらず、summary-modeの "A"では
後藤> Mew オリジナルのcite動作をするようにして使い分けてます。

taka> どちらも具体的な設定方法を教えていただけると，個人的にはとて
taka> もうれしかったりします(^^;)

私の方法は自分の判断で切り替える方法なので、白井さんの自動判定の方法
のほうが期待できますね。(^^;

.emacs中でのxciteに関する設定を抜き出してみます。
上記の動作にするための本質は４行目の (add-hook ... )の部分だけです。

-------------------------(xciteの設定)---------------------------
(autoload 'xcite "xcite" nil t)
(autoload 'xcite-yank-cur-msg "xcite" nil t)
(setq xcite:x-cite nil)
(add-hook 'mew-draft-mode-hook
	  '(lambda ()
	     (define-key mew-draft-mode-map "\C-c\C-y"
	       'xcite-yank-cur-msg)))

(defun my-xcite-header-function ()
  "U can use: date, id(e-mail addr), handle, msgid, subject, tag, ng"
  (let ((prefix ">>>>>")
	str)
    (setq str (format "%s at %s, %s <%s> said,"
		      prefix date (if (string= tag "") handle tag) id))
    (if (< 70 (string-width str))
	;; fold
	(setq str (format "%s at %s\n%s %s <%s> said,"
			  prefix date prefix 
			  (if (string= tag "") handle tag) id)))
    (concat "\n" str)
    ))

(setq xcite:insert-header-function 'my-xcite-header-function)
------------------------------------------------------------------


--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN