[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:00374] Re: copy schedule
On Tue, 8 Feb 2000 16:35:15 +0900,
Yoshiaki Kasahara <kasahara@xxxxxxxxxxxxxxxxx> said:
> X-SC-Day への日付の追加では対応できないので、既に入っているスケジュー
> ルに対して C-c | して複製したいのです。いちいち C-c e で1から入れるの
> はいやだし……。
:
> あと、X-SC-Subject は引きつがれるものの、生 JIS で入っているためミニバッ
> ファに表示される時化けてしまいます(XEmacs だから?)。summary buffer で
> も読めないんですよね(X-SC-Location も同様)。
summary buffer で読めないですか。。
message buffer で読めないのは、多分 Mew の人はみんなそのはずです。
# wl の場合はどう見えるのだろう。
Mew の場合は mew-summary-display-asis (キーバインドは ",") してから
C-c | するというので何とかなったりしますか?
あ、白井さんから同様のメールが。
以下、Mew の時は C-c| する前に強制的に "," してみました。
eval-defun して、試してみてください。
(defun mhc-import ()
(interactive)
(mhc-window-push)
(let* (guess ptr ddate dtime mode sch)
(if (and (setq mode (assoc major-mode mhc-summary-message-alist))
(equal (cdr mode)
(save-window-excursion (other-window 1) major-mode)))
(progn
(if (and (equal mhc-mailer-package 'mew))
(mew-summary-display-asis))
(other-window 1)))
(delete-other-windows)
(condition-case ()
(if (y-or-n-p "Do you want to import this buffer ? ")
(progn
(setq sch (mhc-sch-new))
(mhc-sch-set-day sch (mhc-input-day "Date: "
nil
(gdate-guess-date)))
(apply 'mhc-sch-set-time sch (mhc-input-time
"Time: "
nil
(gdate-guess-time
(mhc-minibuf-candidate-nth-begin)
)))
(mhc-sch-set-subject
sch
(mhc-input-subject
"Subject: "
(mhc-misc-sub
(or (mhc-misc-hdr-value "X-SC-Subject:")
(mhc-misc-hdr-value "Subject:"))
"^\\(Re:\\)? *\\(\\[[^\]]+\\]\\)? *"
"")))
(mhc-sch-set-location sch
(mhc-input-location "Location: "))
(mhc-sch-set-category sch
(mhc-input-category "Category: "))
(mhc-prepare-draft sch (current-buffer)))
(mhc-window-pop))
(quit (mhc-window-pop)))))
X-SC-* の値を引き継ぐのは、全部まるごと引き継ぐのでいいのでしょうか。
何となく
引き継ぐ: Subject, Location, Category, Alarm
引き継がない: Day, Time, Cond, Duration, Record-Id
の方が嬉しいかな? Time は引き継いでもいいかな。
> ちょっと気になります。MIME 関連のヘッダを追加して、encode する?
エンコードするのがまっとうなのでしょうが、苦労して動作を重くする
割には、嬉しさが小さいような気がして躊躇しています。
--
nom