猫熊は燃えつきた？！日記

○ 最近の活動

福岡にもちょっと慣れたところかな。それにしても福岡の女性はみんな綺麗だよん :-)

丁度耳をすませばを見ているのだが、今はああゆう坂のある街に住んでいるので、ちょっと感情移入。45年間海抜(ほとんど)0m地帯デスからね。

○ mhc2gcal ver.0.2.0

新しいバージョンが出ていた。今週頭に「あれ？mhc2gcal で Google Calendar のスケジュールを消すときにエラーになるなぁ」と悩んでいたときに発見。乗り換え完了。

作者さんのPatch for gcalapi 0.1.0 : イベントが削除できない問題対策もとってもとっても参考になりました。

○ MHC Calendar の popup 表示

MHC のサマリの右側に出ている縦型カレンダーとか M-x mhc-calendar の日付の上にマウスカーソルを置くと、スケジュールを popup するものをコミットしてみた。ついでに mhc-mew.el のバグ fix。

○ MHC のスケジュールに後からメールを追加してみる

知り合いから頼まれて作ってみた。最近の Mew 限定。

(add-hook 'mhc-draft-mode-hook
	  (lambda ()
	    (define-key mhc-draft-mode-map "\C-c\C-y" 'mhc-mew-draft-attach-message)))
 
(defun mhc-mew-draft-attach-message ()
  (interactive)
  (let ((case-fold-search t)
	(buffer-read-only nil)
	(inhibit-read-only t)
	(buffer-undo-list t)
	(boundary (format "--mew-mhc-draft-attach-%s--"
			  (format-time-string "%Y-%m-%d_%T" (current-time))))
	ct cte)
    (goto-char (point-min))
    (mhc-header-narrowing
      (goto-char (point-min))
      (unless (mhc-header-get-value "mime-version")
	(mhc-header-put-value "Mime-Version" "1.0"))
      (setq ct (or (mhc-header-get-value "content-type")
		   "Text/Plain"))
      (setq cte (or (mhc-header-get-value "content-transfer-encoding")
		    "7bit"))
      (mhc-header-delete-header "content-type")
      (mhc-header-delete-header "content-transfer-encoding")
      (mhc-header-put-value "Content-Type"
			    (format "Multipart/Mixed; boundary=\"%s\"" boundary))
      (mhc-header-put-value "Content-Transfer-Encoding" "7bit"))
    (goto-char (point-min))
    (re-search-forward
     (concat "^" (regexp-quote mail-header-separator) "$\\|^$") nil t)
    (forward-line 1)
    (insert "\nThis is a multi-part message in MIME format created by MHC-MEW.\n\n")
    (insert (format "--%s\nContent-Type: %s\nContent-Transfer-Encoding: %s\n\n"
		    boundary ct cte))
    (goto-char (point-max))
    (insert (format "\n--%s\n" boundary))
    (insert "Content-Type: Message/Rfc822\n")
    (insert "Content-Transfer-Encoding: 7bit\n")
    (insert "Content-Disposition: inline\n\n")
    (save-excursion
      (let* ((fid (mew-frame-id))
	     (fld (mew-current-get-fld fid))
	     (msg (mew-current-get-msg fid))
	     file)
	(when (and fld msg)
	  (setq file (mew-expand-msg fld msg))
	  (when (file-readable-p file)
	    (let ((coding-system-for-read 'undecided))
	      (insert-file-contents file)))))
      (goto-char (point-max))
      (insert (format "\n--%s--\n" boundary)))))

MHC の draft で C-cC-y すると、その時に見ている Mew のメールをマルチパートで取り込む。

(1) 電話などで話をして、MHC のスケジュールの登録で仮抑えをする。
(2) 後から、メールでお知らせが来た。
(3) (1) のスケジュールを C-c.m で開いて、(2) のメールを表示している状態で C-cC-y する。

というような使い方を想定している。今までは、(2) のメールを C-c.| で新規に取り込んで (1) のスケジュールを消していたのだけど、ちょっとはスマートになったかな。
ただし、エラーチェックとかは手抜きだし、mhc-mew.el は前述の fix 済みのものが必要。

○ 風

大変だったようだね。福岡は雪が降ったり止んだり。積もるほどでは無いけれど。

○ mew-nmz

日記には書いていなかったような気がするのだけど、昨年末にぼくの同意の上で Mew 本体から mew-nmz.el が外れた。最近時間が取れなかったので、Mew の変化についていけなくなったのが主な要因。

だけど、Mew で Namazu は使うよねということで、Mew から独立して配布している。こういう配布方法だと、好き勝手が出来るのである意味正解かもしれない。問題点は、Mew のバージョンをどこまでカバーするか？ということなのだけど、めちゃくちゃ大変かつ不毛なのはわかっているので、その時点での CVS Headを狙う予定。

○ MHC の Mew 対応バージョン

そういえば、久しぶりに mhc-mew.el をいじったら『うぅ、この関数、前はどんな仕様だったけ？』というのが多々あった。面倒くさいのでヤマ勘で対処。