[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:01153] Re: emacs/mhc-mime.el and...



>>>>> mhc の No. 01150
>>>>> Message-Id: <20001213124559V.nom@xxxxxxxxxxxxxxxxxxx> で、
>>>>> "乃村" == Yoshinari Nomura <nom@xxxxxxxxxxxxxxxxxxx>さま曰く...

>> ;; 某所で懸案事項となっていましたので、しばらく前から使わせてい
>> ;; ただいています。

乃村> 某所とはどちらでしょう。差し支えなければ教えていただけませ
乃村> んか。

すみません、こういう書き方は良くないですね。

FreeTalk というメイリングリストで、私が MHC mode は minor-mode
の coding standard にあっていないからヤダ、などと言い出したにも
かかわらず、あわせていただいた後も多忙にかまけて試してもいなかっ
たのです。

>> 2. C-c . | で import 元のメッセージから日付を推定する時に
>> `yyyy-mm-dd' という形式のものも日付として認識するようにしてい
>> ただけないでしょうか?
>> 
>> ;; ちゃんと調べたわけではないのですが man cvs によると ISO 形
>> ;; 式だそうです。

乃村> 2. はやってみます。 1. はちょっとよく分かりません。
乃村> wl や cmail の semi な方々のレビューをいただけませんでしょうか。

すみません、 2. の件なのですが、日付の入力時もこれを使えるように
というのはわがままでしょうか。 ^^;;;

乃村> 新しいパッチを送っていただけますか。

了解しました。後ろにつけておきます。

;; get-orihinal が none-nil の時の mhc-mime-import-buffer の返り
;; 値を生成している個所を修正してあります。

-- 
鈴木圭一 / keiichi@xxxxxxxxx
PGP finger print (DH/DSS)
0B32 B37E 6DE9 3BC1 68A4  4089 7AAF 2B03 ECBD 614B
Index: mhc-gnus.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-gnus.el,v
retrieving revision 1.12
diff -u -r1.12 mhc-gnus.el
--- mhc-gnus.el	2000/07/28 00:28:06	1.12
+++ mhc-gnus.el	2000/12/13 04:16:34
@@ -15,7 +15,9 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl))
+(eval-when-compile
+  (require 'cl)
+  (require 'gnus-art))
 (require 'gnus-sum)
 (require 'nnmhc)
 
@@ -74,6 +76,11 @@
   gnus-original-article-buffer)
 
 
+(defun mhc-gnus-mime-get-mime-structure ()
+  (gnus-summary-select-article)
+  gnus-current-headers)
+
+
 (defsubst mhc-gnus/date-to-group-name (date)
   (mhc-date-format date "%s/%02d/%02d" mhc-base-folder yy mm))
 
@@ -185,6 +192,7 @@
   (put 'mhc-gnus 'draft-reedit-file 'mhc-mime-draft-reedit-file)
   (put 'mhc-gnus 'get-import-buffer 'mhc-mime-get-import-buffer)
   (put 'mhc-gnus 'mime-get-raw-buffer 'mhc-gnus-mime-get-raw-buffer)
+  (put 'mhc-gnus 'mime-get-mime-structure 'mhc-gnus-mime-get-mime-structure)
   (put 'mhc-gnus 'draft-translate 'mhc-mime-draft-translate)
   (put 'mhc-gnus 'eword-decode-string 'mhc-mime-eword-decode-string))
 
Index: mhc-mime.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-mime.el,v
retrieving revision 1.5
diff -u -r1.5 mhc-mime.el
--- mhc-mime.el	2000/08/04 02:19:02	1.5
+++ mhc-mime.el	2000/12/13 04:16:34
@@ -20,12 +20,23 @@
   (funcall (mhc-get-function 'mime-get-raw-buffer)))
 
 
+(defsubst mhc-mime-get-mime-structure ()
+  "Get raw buffer of the current message for `mhc-mime-get-import-buffer'."
+  (let ((function (mhc-get-function 'mime-get-mime-structure)))
+    (when function
+      (funcall function))))
+
+
 (defvar mhc-mime-import-buffer " *MHC MIME import*")
 (defun mhc-mime-get-import-buffer (get-original)
-  (let ((raw-buffer (mhc-mime-get-raw-buffer))
-	mime-view-ignored-field-list)
+  (let* ((structure (mhc-mime-get-mime-structure))
+	 (raw-buffer (when (or get-original (not structure))
+		       (mhc-mime-get-raw-buffer)))
+	 mime-view-ignored-field-list)
     (with-current-buffer (get-buffer-create mhc-mime-import-buffer)
-      (mime-view-buffer raw-buffer (current-buffer))
+      (if structure
+	  (mime-display-message structure (current-buffer))
+	(mime-view-buffer raw-buffer (current-buffer)))
       (let (buffer-read-only)
 	(mhc-highlight-message))
       (if get-original