[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 メーリングリストの案内