Seiji Zenitani
zenit****@tkg*****
2004年 10月 22日 (金) 12:07:36 JST
こんにちは、銭谷です。 On 2004/10/19, at 17:45, t.tak****@compu***** wrote: > 高階です。こんにちは。 > > 最近、住所録は今まで使っていた PalmDesktop ではなく、AddressBook に > 以降しました。そこで、以前、公開した Emacs から AddressBook を検索する > Emacs Lisp (下記URL) をよく使っています。 > > http://homepage.mac.com/t_takashina/MacOSX/addressbook.el > > が、さきほど、AddressBook から直接、ドラッグアンドドロップしたら > どうなるんだろうと思って試してみたら、vCardの.vcfファイルをオープ > ンする動作になるんですね。 > > ということは、銭谷さんの Mac Drag'n Drop を使って、編集中のメールに > To部分に、ドラッグアンドドロップした人のEメールアドレスを追加する > なんていう Emacs Lisp が書けそうですね。 vcfファイルって中身はテキストファイルなんですね。 そういうことでしたらmac-drag-N-dropに類似機能が入っていますから 正規表現を考えるだけかも・・・ ・・・ということで、途中までelispを書いてみました。 ↓ To: 部分に移動する関数を作るとお望みの機能が実現すると思います。 銭谷 _____ (setq mac-drag-N-drop-string-alist '( ... (ome-smail-mode . ( ("\\.vcf\\'" . (mac-drag-N-drop-read-vcf file)) (".*" . "Attachment: %F\n") )) )) (defun mac-drag-N-drop-read-vcf (file) "read source lines from LaTeX Equation Editor's PDF file." (interactive "P") ;; (move-to-to-region) (with-temp-buffer (let ((case-fold-search nil)) (insert-file-contents file) (and (re-search-forward "EMAIL;.*type=pref:\\(.*\\)" (point-max) t) (match-string-no-properties 1)) ))) _____
