[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