[Mew-dist 05076] Re: 定型メールの作り方

[Gorochan ^o^]

國頭です。

▲時刻 18 Jun 1998 10:30:53 GMT に
▲Shigeyuki FUKUSHIMAさんの出した
▲Message-ID <19980618193018U.shige at example.com>の
▲[Mew-dist 05073] Re: 定型メールの作り方 という話題では...
▲(詳しくは <19980618191309S.kagotani at example.com> も見てね)

|> # 一応というのは、c-sig と mew を組みあわせたそのままでは、
|> #   "A" で reply すると、挨拶部分は、cut & paste して、頭にもって
|> #   こないと駄目ですね
|> # ということです。

籠谷さんのように、mew-draft-mode-hook にも書き出しの処理を書いておけばい
いですね。
reply の時の定型文だけならば、mew-cite-field とか mew-cite-format の変
数を使う、あるいはsupercite を使うと良いと思います。

僕も文頭に「國頭です」だけ入れるようにし、supercite で引用し、最後に 
c-sig を用いて自動的にsignature を付けるようにしてました。 
supercite などの引用を利用している場合には、希望の位置に入るように
mew-cite-hook の中で sc-oridinal、c-sig 、文頭文字列の処理の順番をいろ
いろ調整する必要があると思います。

mew-draft-mode-hook
mew-cite-hook
mew-cite-pre-hook

のあたりのフック変数をいじることになるでしょう。


しかし、reply の時は適切な signature を選んでくれるのですが、w の時に
はどうしても自動ではだめなので、結局現在はsignature は手動で付けていま
す。 :)



あまりカッコ良くないですが、こんな風にしています。

(defun insert-greeting ()
  (save-excursion
    (goto-char (point-min))
    (if (re-search-forward "^--" nil t)
	(progn
	  (forward-line 1)
	  (insert "\n國頭です。\n\n")
	  )
      )
    )
  )

(defun delete-greeting ()
  (interactive)
  (save-excursion
    (save-restriction
      (goto-char (point-min))
      (if (re-search-forward "^國頭です。" nil t)
	  (progn
	    (beginning-of-line)
	    (let ((cur-pos (point)))
	      (forward-line 2)
	      (delete-region cur-pos (point))
	      )
	    )
	)
      )
    )
  )



(add-hook 'mew-cite-pre-hook 'delete-greeting)
(add-hook 'mew-cite-hook (lambda () 
			   (delete-greeting)
			   (sc-cite-original)
			   (insert-greeting)
			   ))
	  
;;;; mew-draft-mode-hook の設定
(add-hook 'mew-draft-mode-hook
	  '(lambda ()
	     (insert-greeting)
	     (define-key mew-draft-body-map "\C-c\C-i" 'insert-signature-automatically)
	     ))



■□◆◇▲△▼▽●◎○★☆■□◆◇▲△△▲◇◆□■☆★○◎●▽▼△▲◇◆□■
△                                                                        ▽
▲   國頭 吾郎 (Goro Kunito)  Tel 03-3812-2111 or 03-3814-4251(ext.6761)  ▼
△   東京大学工学系研究科電子情報工学専攻  羽鳥・相澤研究室 博士課程２年  ▽
▲                  E-mail : kunito at example.com                   ▼
△                                                                        ▽
■□◆◇▲△▼▽●◎○★☆■□◆◇▲△△▲◇◆□■☆★○◎●▽▼△▲◇◆□■