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

○ 最近の活動

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

丁度耳をすませばを見ているのだが、今はああゆう坂のある街に住んでいるので、ちょっと感情移入。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 済みのものが必要。