おもてなしの空間 このページをアンテナに追加 RSSフィード





このページの情報が多少なりとお役に立てれば、相応の寄付を頂けますと励みになります。 ソフトウエアの改訂や機能追加などのご依頼があれば、寄付をはずんでいただけますと、その気になるかもしれません。(無保証です)
寄付のお願い
メッセージ

2009年12月10日(木)

amt2009-12-10

[][] gmail で返信する時に自動的に元メール文に付けられる引用を表わす文字を削除する

毎朝両親に体調記録を送付するのに、昨日の返信という形にして内容を更新しているのだが、gmail が勝手に元メール本文(昨日の内容で、本日の記載の元になる)に、引用記号をつけてくれるので、これを毎朝削除していた。

馬鹿馬鹿しいので、キーボードマクロにしたら、メンテ不能なものになったので、仕方がないので elisp で書くことにした。

;;; 20091210 gmail で返信する時に自動的に元メール文に付けられる引用を表わす文字を削除する
;;; c.f. http://d.hatena.ne.jp/amt/20091210/MyDeleteGmailReplyAutoQuote
;;;
(defun my-delete-gmail-reply-auto-quote ()
  "gmail で返信する時に自動的に元メール文に付けられる引用を表わす文字を削除する"
  (interactive)
  (let ((gmail-buffer-regexp "^mail\.google\.com\..+\.txt"))
    (when (string-match gmail-buffer-regexp (buffer-name))
      ;;先頭から引用のヘッダまで削除
      (goto-char (point-min))
      (search-forward "<itsumi@gmail.com>:\n")
      (delete-region (point-min) (point))

      ;;firefox が行頭スペース二個の代りに挿入する文字のリプレイス
      (replace-string "&#160;" "  ")

      ;;引用記号とインデントの削除
      (goto-char (point-min)) ;replace-regexp()はポイント位置以降を変換なので先頭に戻る
      (replace-regexp "^> ?" "")

      ;;末尾の空行の削除
      (replace-regexp "^\n" "")
  
      ;;バッファ先頭に移動
      (goto-char (point-min)))))
(define-key text-mode-map [(control ?c) ?Q] 'my-delete-gmail-reply-auto-quote)

●感想

今朝は、上例の他にも もう一つ 毎朝手作業でやっているルーチンワークを elisp にしてみたが、対話的な時と、プログラム中での動作が違う関数が多いことと、それがあまりドキュメントアウトされていないことで苦労した。

elispプログラミングは楽しくない。

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証


[http://d.hatena.ne.jp/amt/mobile/:barcode]
■--このページについて--■

○日記開設以来のページビュー::7300167
○書いた人::逸見研一(いつみけんいち)
○mail::itsumi @ gmail.com
↑の@を半角に変更

○Skype(Voicemail)::itsumiken
いつみのカレンダー
いつみの進行管理New!
いつみの掲示板New!
ラジオ英会話上級公開ノート近日再編成
このページへリンクしているページ
このページを参照しているページ

アクセスログ

■--今読んでるモノ--■


※過去に読んだもののメモは こちら

■--今書いているモノ--■

external-filter-el20061224 着手
※過去に書き散らかしたものは こちら

■--謹製ソフトウエア--■

cmd2ftp20070118 公開
mininova_get20070102 改訂
del2bk20061223 改訂
Up2PB20061223 改訂
conv-el20061006 改訂!
pirate_get20060912 公開!
hatenahelper-mode.el

■--ほかのページ--■

おもてなしの空間 為替編20080428 発進!
アフィリエイト研究20061018 発進!
借りやすい消費者金融New!
中国株投資の証券会社選びNew!
おいでやすWiki
いつみの思いつき
いつみの予定
いつみのオープンノート
使ってみた Firefox extension
はてなフォトライフ(シンボリックな画像の倉庫)
del.icio.us
flickr
Orkut
Mixi
Facebook(実名で検索するとヒットします)New!

<< 2009/12 >>
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
最新コメント
■ 過去記事一覧 ■

■--お役立ち情報--■

html-helper-mode キーバインド
hatena-mode のキーバインド
はてな記法一覧
はてなダイアリー利用可能 html タグ

↓は、検索結果に、検索語に関連する広告が付いてくる検索窓です、面白いですよ

Google

. FLASH フラッシュ制作 携帯フラッシュ フラッシュゲーム