[Mew-dist 1139] [DEMO] displaying news patch

SAKAI Kiyotaka ksakai at example.com
1997年 7月 1日 (火) 16:28:20 JST


デモとして mew-1.85 でニュースの記事を表示させるためのパッチを作りまし
たので、お送りします。

なお、あくまでもこのパッチは、mew がニュースを取り扱うのにあと少しのと
ころまできていることをデモ的に示すものにすぎず、インターフェースやコー
ドの美しさ等はまったく考慮していませんので、そのあたりはご了承下さい。

使い方は、mew-summary-goto-folder で folder 名に -fj.sys.sun 等、ニュー
スグループ名の始めに "-" を付けたものを指定して下さい。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew.el,v
retrieving revision 1.1
diff -u -r1.1 mew.el
--- mew.el	1997/07/01 06:58:03	1.1
+++ mew.el	1997/07/01 06:58:27
@@ -423,6 +423,7 @@
 
 (defvar mew-prog-imget       "imget")
 (defvar mew-prog-imls        "imls")
+(defvar mew-prog-imcat       "imcat")
 (defvar mew-prog-imali       "imali")
 (defvar mew-prog-impath      "impath")
 (defvar mew-prog-impack      "impack")
-------------- next part --------------
===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.2
diff -u -r1.2 mew-summary.el
--- mew-summary.el	1997/07/01 06:49:59	1.2
+++ mew-summary.el	1997/07/01 07:17:57
@@ -463,12 +463,13 @@
   (interactive)
   (let* ((folder (mew-input-folder mew-inbox-folder))
 	 (dir (mew-expand-folder folder)))
-    (if (null (file-directory-p dir))
-	(message "No such folder %s" folder)
+    (if (not (or (string-match "-" folder) (file-directory-p dir)))
+        (message "No such folder %s" folder)
       (if (get-buffer folder)
 	  (switch-to-buffer folder)
 	(mew-summary-folder-create folder))
-      (cd dir)
+      (or (string-match "-" folder)
+	  (cd dir))
       (mew-summary-ls)
       )))
 
@@ -623,7 +624,8 @@
 	 (opart (mew-current-get 'part))
 	 (buf (buffer-name))
 	 (next nil))
-    (if (not (file-exists-p (mew-expand-folder fld msg)))
+    (if (not (or (file-exists-p (mew-expand-folder fld msg))
+		 (string-match "-" fld)))
 	(message "File does not exist.")
       (mew-summary-toggle-disp-msg 'on)
       (unwind-protect
@@ -767,6 +769,10 @@
     (setq mew-decode-result nil)
     (setq mew-decode-syntax nil)
     (cond
+     ((string-match "-" fld)
+      (let ((coding-system-for-read 'automatic-conversion))
+	(call-process mew-prog-imcat nil t nil (format "--src=%s" fld) msg))
+      (mew-header-arrange))
      ((equal fld mew-draft-folder)
       (insert-file-contents file))
      ((and (not analysis)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-scan.el,v
retrieving revision 1.1
diff -u -r1.1 mew-scan.el
--- mew-scan.el	1997/07/01 07:07:32	1.1
+++ mew-scan.el	1997/07/01 07:09:12
@@ -49,6 +49,7 @@
     (if (not (mew-folder-member folder mew-clean-up-buffers))
 	(setq mew-clean-up-buffers (cons folder mew-clean-up-buffers)))
     (if (or (interactive-p)
+	    (string-match "-" folder)
 	    (and mew-summary-cache-use
 		 (mew-summary-folder-dir-newp)))
 	(mew-summary-scan-body mew-prog-imls 
-------------- next part --------------
===================================================================
RCS file: RCS/mew-minibuf.el,v
retrieving revision 1.1
diff -u -r1.1 mew-minibuf.el
--- mew-minibuf.el	1997/07/01 06:58:36	1.1
+++ mew-minibuf.el	1997/07/01 06:59:17
@@ -16,7 +16,7 @@
 
 ;; ugh! Hard coding... Setq by yourself if you don't use +draft.
 (defvar mew-range-alist 
-  '(("+draft" . "all") ("+trash" . "all") (".*" . "update"))
+  '(("+draft" . "all") ("+trash" . "all") ("-.*" . "all") (".*" . "update"))
   "*alist of folder and default range pair")
 
 (defvar mew-mini-address-map nil)


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