wiki_tomos(a)hotmail.com wrote:
> this is a test message from a hotmail account.
>
> ホットメールからのテストです。
アーカイヴと配送先アドレスの両方でESC落ちに見えたのですが、
返信のため引用すると読めるようになりました。
egroups.co.jp で過去に類似の現象がありました（その方は jp domain からの投稿です）。
とりあえずご報告まで。
--
KIZU
kizu-n (at) mail (dot) goo (dot) ne (dot) jp
* HAEC OLIM MEMINISSE IVVABIT *
this is a test message from a hotmail account.
$B%[%C%H%a!<%k$+$i$N%F%9%H$G$9!#(B
_________________________________________________________________
MSN Toolbar provides one-click access to Hotmail from any Web page FREE
download! http://toolbar.msn.click-url.com/go/onm00200413ave/direct/01/
ども、M-Falconです。
私はメール環境がEmacs+Wanderlustな人なので、過去ログを見やすいように
このMLのshimbunモジュールを作ってみました。
他にもそういった方や未参加な方でもアーカイブが見やすくなるかと思い、
この自作モジュールのファイルを添付します。
よろしければ使用してみてください。
これがMLの活性化に役立てば幸いです。
では。
# 本来はemacs-w3mに出すべき(?)なのでしょうが、ローカルですし、
# まだ、あんまりMLが回っていないですし。
--
M-Falcon <mfalcon21(a)hotmail.com>
毎日を最後の一日のように思って生きよ。
(アンナエウス・セネカ ローマの哲学者)
*** separate here
;;; sb-wikipedia-ja.el --- shimbun backend for Wikipedia-Ja Mailing list -*- coding: iso-2022-jp; -*-
;; Copyright (C) 2001, 2002, 2003, 2004 Tsuyoshi CHO <mfalcon21(a)hotmail.com>
;; Author: Tsuyoshi CHO <mfalcon21(a)hotmail.com>
;; Keywords: news
;; This file is a part of shimbun.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, you can either send email to this
;; program's maintainer or write to: The Free Software Foundation,
;; Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.
;;; Code:
(require 'shimbun)
(require 'sb-mailman)
(luna-define-class shimbun-wikipedia-ja (shimbun-mailman) ())
(defvar shimbun-wikipedia-ja-url "http://mail.wikipedia.org/pipermail/")
(defvar shimbun-wikipedia-ja-groups '("wikija-l"))
(luna-define-method shimbun-index-url ((shimbun shimbun-wikipedia-ja))
(shimbun-expand-url
(concat (shimbun-current-group-internal shimbun) "/")
(shimbun-url-internal shimbun)))
(luna-define-method shimbun-reply-to ((shimbun shimbun-wikipedia-ja))
(concat (shimbun-current-group-internal shimbun)
"@Wikipedia.org"))
(luna-define-method shimbun-make-contents
((shimbun shimbun-wikipedia-ja) header)
(shimbun-wikipedia-ja-make-contents shimbun header))
(defun shimbun-wikipedia-ja-make-contents (shimbun header)
;; copy from shimbun-squeak-ja-make-contents
(subst-char-in-region (point-min) (point-max) ?\t ?\ t)
(shimbun-decode-entities)
(goto-char (point-min))
(let ((end (search-forward "<!--beginarticle-->"))
name address date)
(goto-char (point-min))
(search-forward "</HEAD>")
(when (re-search-forward "<H1>\\([^\n]+\\)\\(\n +\\)?</H1>" end t nil)
(shimbun-header-set-subject
header
(shimbun-mime-encode-string (match-string 1))))
(when (re-search-forward "<B>\\([^\n]+\\)\\(\n +\\)?</B> *\n +\
<A HREF=\"[^\n]+\n +TITLE=\"[^\n]+\">\\([^\n]+\\)"
end t nil)
(setq name (match-string 1)
address (match-string 3))
;; Yoshiki.Ohshima ＠ acm.org
(when (string-match " ＠ " name)
(setq name (concat (substring name 0 (match-beginning 0))
"@"
(substring name (match-end 0)))))
(when (string-match " ＠ " address)
(setq address (concat (substring address 0 (match-beginning 0))
"@"
(substring address (match-end 0)))))
(shimbun-header-set-from
header
(shimbun-mime-encode-string (concat name " <" address ">")))
(when (re-search-forward "<I>\\([0-9][0-9][0-9][0-9]\\)年 *\\([0-9][0-9]*\\)月 *\\([0-9][0-9]*\\)日 (\\(月\\|火\\|水\\|木\\|金\\|土\\|日\\)) \\([:0-9]+\\) \\([A-Z]+\\)</I>" end t nil)
;; <I>Sat, 12 Apr 2003 17:29:51 +0900 (JST)</I> ;; mailman original
;; <I>2003年 4月 11日 (金) 02:43:25 CEST</I> ;; squeak-ja
(setq date (shimbun-make-date-string
(string-to-number (match-string-no-properties 1))
(string-to-number (match-string-no-properties 2))
(string-to-number (match-string-no-properties 3))
(match-string-no-properties 5)
(match-string-no-properties 6)))
(shimbun-header-set-date header date))
(delete-region (point-min) end)
(delete-region (search-forward "<!--endarticle-->") (point-max))
(shimbun-header-insert-and-buffer-string shimbun header nil t))))
(provide 'sb-wikipedia-ja)
;;; sb-wikipedia-ja.el ends here