Hatena::Groupcadr

わだばLisperになる このページをアンテナに追加 RSSフィード

2004 | 12 |
2005 | 01 | 02 | 07 | 10 | 11 |
2006 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 11 |

2006-08-23

Emacsから携帯にメールする

| 00:46 | Emacsから携帯にメールする - わだばLisperになる を含むブックマーク はてなブックマーク - Emacsから携帯にメールする - わだばLisperになる

最近は、ずーっと家にいるということもあり、ずっとPC

の前から世界を睨み続けているので、携帯に来たメール

も「なりすましメール」で応酬しています。なりすましっ

ていっても単純で、FromとReply-Toを携帯に向けてるだ

けなんですが、結構頻繁に使うので支援の小汚いelisp

とかも書いてみてました。

(setq mb-email-address "foo@jp.earth")

(defun narisumashi (email-address)
  "携帯からのメールをなりすましでPCから送る際のメール作成支援コマンド"
  (interactive "p")
  (save-excursion
    ;; auto-fillを無効にする
    (auto-fill-mode -1)
    ;; Reply-toを携帯へ
    (goto-char (point-min))
    (cond ((re-search-forward "^Reply-To:\\(.*\\)" nil t)
	   (replace-match (format "Reply-To: %s" mb-email-address)))
	  (t (insert (format "Reply-To: %s\n" mb-email-address))))

    (goto-char (point-min))
    (re-search-forward "^From: \\(.*\\)" nil t)
    (replace-match mb-email-address t t nil nil)

    (goto-char (point-min))))

でも、こういうことしなくても、というか寧ろこういう

ことはしないで、メーラーのフックをちゃんと利用すれ

ば、かなり快適な「なりすまし携帯メール」環境を実現

できるんじゃないかと思うわけです。

どういうことをしたいのかといえば、今のところ

  • 絵文字の使用
  • 携帯なので基本的にauto-fillしない。

という位しか思い付きませんが、絵文字については、送

り主のドメインをみて判断し、文章中のキーワードをキャ

リア依存の絵文字を適用して送信する、位のことはフッ

クを使うと実現できそうです。

とりあえず、実験としてAUの絵文字に変換するテストと

してフィルターを書く

(defun ezemoticonize-region (begin end)
  "リージョン中の`うんこ'をez-webの絵文字に変換"
  (interactive "r")
  (save-excursion
    (goto-char (min begin end))
    (while (re-search-forward "うんこ" nil t)
      (replace-match (format "%c" 64336)))))

という感じ。

そしてそれを、

(add-hook 'wl-draft-send-hook
           #'(lambda ()
               (ezemoticonize-region (point-min) (point-max))))

のように送信時のフィルターとして噛ませば、「うんこ」

がすべてうんこの絵文字となります。しかし、全キャリ

アの絵文字に対応するのはなかなか面倒そう。

しかし「うんこ」だけでも是非全キャリ対応させたいと

ころ。

ゲスト



トラックバック - http://cadr.g.hatena.ne.jp/g000001/20060823