ども、M-Falconです。
私はメール環境がEmacs+Wanderlustな人なので、過去ログを見やすいように このMLのshimbunモジュールを作ってみました。
他にもそういった方や未参加な方でもアーカイブが見やすくなるかと思い、 この自作モジュールのファイルを添付します。
よろしければ使用してみてください。 これがMLの活性化に役立てば幸いです。
では。
# 本来はemacs-w3mに出すべき(?)なのでしょうが、ローカルですし、 # まだ、あんまりMLが回っていないですし。 -- M-Falcon mfalcon21@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@hotmail.com
;; Author: Tsuyoshi CHO mfalcon21@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