[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:00912] Re: New draft
白井です。
# お休みなものでして反応が遅いです。(_ _)
From: Yoshinari Nomura <nom@xxxxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:00911] Re: New draft
Message-ID: <20000803103149O.nom@xxxxxxxxxxxxxxxxxxx>
Date: Thu, 03 Aug 2000 10:31:49 +0900
nom> > わたしは Mew 1.95b43 で動かしていますが、(目視確認だと)Mew 1.94
nom> > でも動くと思います。
nom>
nom> ごめんなさい。報告だけ。Mew version 1.94.2 on Emacs 20.6 ですが、
nom>
nom> のようなスケジュールの、9/28日だけを消そうとして、
nom> C-cd y n y と押すと、以下のエラーが出ます。
うゎぁ、こっちからもよばれるんだ。気付きませんでした。^^;;;
(若干その他のものも含むのですが)パッチ1をどうぞ。後で commit し
ておきます。
○ New draft の別の話
current の Mew で(メールからの import ではない) schedule をつく
ると、たとえば、
------------------------------------------------------
X-SC-Subject: =?iso-2022-jp?B?GyRCRy81WSRIJCQkQyRGJGIbKEI=?=
X-SC-Day: 20000803
X-SC-Location: =?iso-2022-jp?B?GyRCO1I2ISROQCRPQyRAJDEbKEI=?= ;_;
<<snip>>
X-SC-Record-Id: <1234foo@xxxxxxxx>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
------------------------------------------------------
の様に mime-version や ct, cte をつけて schedule を作りますが、
次に mhc でこの schedule を表示して "C-c |" すると、"From:" が無
いため message と見なさないので、mime-version の前に header
separator をつけてしまいます。
パッチ2 の様に改造したいのですが、SEMI でも問題ないでしょうか。
# というか SEMI でも一緒の症状が出ると思うのだけど。。。
P.S.
山下さん実験ありがとうございます。自分で環境を作って動作させてみ
ます。
--
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)
--- mhc-mew.el.orig Wed Aug 2 18:47:38 2000
+++ mhc-mew.el Thu Aug 3 14:50:18 2000
@@ -2,7 +2,7 @@
;; Author: Yoshinari Nomura <nom@xxxxxxxxxxxxx>,
;; Created: 2000/05/10
-;; Revised: $Date$
+;; Revised: $Date: 2000/08/02 08:06:55 $
;;; Commentary:
@@ -198,9 +198,11 @@
(mhc-header-narrowing
(mhc-header-delete-header "x-mew"))
(goto-char (point-min))
- (and (re-search-forward "^$" nil t)
- (mew-header-set mew-header-separator)))
-
+ (re-search-forward "^$" nil 'limit)
+ (or (= (current-column) 0) (insert "\n"))
+ (mew-header-set mew-header-separator)
+ (goto-char (point-min)))
+
(defun mhc-mew-draft-reedit-file (file)
(erase-buffer)
@@ -218,8 +220,9 @@
(mhc-header-narrowing
(mhc-header-delete-header "x-mew"))
(goto-char (point-min))
- (and (re-search-forward "^$" nil t)
- (mew-header-set mew-header-separator))
+ (re-search-forward "^$" nil 'limit)
+ (or (= (current-column) 0) (insert "\n"))
+ (mew-header-set mew-header-separator)
(goto-char (point-min)))
@@ -248,9 +251,12 @@
(re-search-forward (concat "^--" boundary "--$") nil t))
;; looks like Broken multi-part message.
(setq boundary nil))))
- (mew-header-encode-region (point-min) (mew-header-end))
- (mew-header-clear)
- (insert "\n")
+ (if (null (mew-header-end))
+ (mhc-header-narrowing
+ (mew-header-encode-region (point-min) (point-max)))
+ (mew-header-encode-region (point-min) (mew-header-end))
+ (mew-header-clear)
+ (insert "\n"))
(if (null boundary)
;; text/plain
(progn
--- mhc.el.orig Wed Aug 2 18:47:40 2000
+++ mhc.el Thu Aug 3 14:52:50 2000
@@ -312,11 +312,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; import, edit, delete, modify
-(defun mhc/buffer-message-p ()
- "Return non-nil if current buffer looks like message."
- (mhc-header-narrowing
- (mhc-header-get-value "from")))
-
(defun mhc-edit (&optional import-buffer)
"Edit a new schedule.
If optional argument IMPORT-BUFFER is specified, import its content.
@@ -328,7 +323,7 @@
(let ((draft-buffer (generate-new-buffer mhc-draft-buffer-name))
(current-date (or (mhc-current-date) (mhc-calendar-get-date)))
(succeed t)
- date time subject location category priority)
+ msgp date time subject location category priority)
(and (interactive-p)
(mhc-window-push))
(set-buffer draft-buffer)
@@ -338,6 +333,8 @@
(cdr import-buffer)
import-buffer))
(mhc-header-narrowing
+ (setq msgp (or (mhc-header-get-value "from")
+ (mhc-header-get-value "x-sc-subject")))
(mhc-header-delete-header
(concat "^\\("
(mhc-regexp-opt mhc-draft-unuse-hdr-list)
@@ -417,8 +414,7 @@
(progn
(switch-to-buffer draft-buffer t)
(set-buffer draft-buffer)
- (if (and import-buffer
- (mhc/buffer-message-p))
+ (if (and import-buffer msgp)
(if (consp import-buffer)
(mhc-draft-reedit-buffer (car import-buffer) 'original)
;; Delete candidate overlay if exists.