[Mew-dist 08866] mew-gnus

Fukae Seiji fukae at example.com
1999年 5月 20日 (木) 03:01:43 JST


  深江です。

  Mew version 1.94b27 on XEmacs 21.2 (Dionysos)
  Gnus v5.6.45

を使用したときの話です。

  .emacs に

  (add-hook
	'gnus-group-mode-hook
	(function
	(lambda ()
	(require 'mew-gnus)
	(define-key gnus-group-mode-map "a" 'mew-gnus-post-news))))
  (add-hook
	'gnus-summary-mode-hook
	(function
	(lambda ()
	(define-key gnus-summary-mode-map "a" 'mew-gnus-post-news)
	(define-key gnus-summary-mode-map "r" 'mew-gnus-reply)
	(define-key gnus-summary-mode-map "R" 'mew-gnus-reply-with-citation)
	(define-key gnus-summary-mode-map "f" 'mew-gnus-mail-forward))))

と書いて、あるニュースグループに投稿しようとしたら (a)、
Draft モードにおいて、ヘッダの部分が

  To: Newsgroups:		<--- この部分
  Subject: 
  Fcc: drafts
  X-Mailer: Mew version 1.94b27 on XEmacs 21.2 (Dionysos)
  ----

のようになってしまいました。

  以下のように強引に "To: " を消したのですが…

Fukae Seiji
fukae at example.com
-------------- next part --------------
--- mew-gnus.el~	Thu May 20 01:43:57 1999
+++ mew-gnus.el	Thu May 20 02:37:24 1999
@@ -109,6 +109,7 @@
      (mew-draft-rename file)
      (mew-draft-header nil nil 'no nil "")
      (goto-char (point-min))
+     (replace-string "To: " "")
      (search-forward "Newsgroups: ")
      (mew-draft-mode))))
 


Mew-dist メーリングリストの案内