[Mew-dist 06615] Re: mew-gnus with Mew-1.93
SAKAI Kiyotaka
ksakai at example.com
1998年 10月 5日 (月) 17:13:45 JST
>> In article <199809290513.OAA10781 at example.com>, harrier at example.com (NAKAMURA Takahiro) writes:
> mew-gnusを使っていましたが、Mew-1.92-4からMew-1.93にあげてから、
> 以下のようなエラーが出るようになりました。
> No such face: mew-highlite-header-face-important
このパッチを当てて下さい。
--
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-gnus.el,v
retrieving revision 1.22
diff -u -r1.22 mew-gnus.el
--- mew-gnus.el 1998/07/13 04:52:38 1.22
+++ mew-gnus.el 1998/10/05 08:09:44
@@ -88,11 +88,8 @@
(defun mew-gnus-post-news ()
"Post a news using mew."
(interactive)
- (or mew-temp-dir
- (save-excursion
- (mew-set-environment)))
+ (if (null mew-mail-path) (mew-init))
(let ((file (mew-folder-new-message mew-draft-folder)))
- (if (null mew-mail-path) (mew-init))
(mew-current-set 'window (current-window-configuration))
(delete-other-windows)
(switch-to-buffer (find-file-noselect file))
@@ -106,13 +103,10 @@
"Reply or followup to GNUS article using mew.
Optional argument YANK means yank original article."
(interactive)
- (or mew-temp-dir
- (save-excursion
- (mew-set-environment)))
+ (if (null mew-mail-path) (mew-init))
(let ((file (mew-folder-new-message mew-draft-folder))
from cc subject date to reply-to newsgroups in-reply-to references
distribution)
- (if (null mew-mail-path) (mew-init))
(mew-current-set 'window (current-window-configuration))
(delete-other-windows)
(gnus-summary-display-article (gnus-summary-article-number) t) ;; redisplay
@@ -163,9 +157,7 @@
(defun mew-gnus-mail-forward (&optional buffer)
"Forward the current message to another user using mew."
(interactive)
- (or mew-temp-dir
- (save-excursion
- (mew-set-environment)))
+ (if (null mew-mail-path) (mew-init))
(mew-current-set 'window (current-window-configuration))
(pop-to-buffer (or (and (boundp 'gnus-original-article-buffer)
gnus-original-article-buffer)
Mew-dist メーリングリストの案内