1 ;;; wl-news.el --- Create notification from NEWS(.ja) for Wanderlust.
3 ;; Copyright (C) 2002 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>
4 ;; Copyright (C) 2002 Kenichi OKADA <okada@opaopa.org>
6 ;; Author: Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>
7 ;; Kenichi OKADA <okada@opaopa.org>
8 ;; Keywords: mail, net news
10 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
12 ;; This program is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your option)
17 ;; This program is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
42 (defvar wl-news-version-file-name "previous-version")
43 (defvar wl-news-default-previous-version '(2 0 0))
45 (defun wl-news-check ()
46 (let ((previous-version (wl-news-previous-version-load))
47 (current-version (product-version (product-find 'wl-version))))
48 (if (and (< 0 (product-version-compare
49 current-version previous-version))
51 (wl-news-send-news previous-version))
52 (wl-news-previous-version-save current-version))))
58 ;;; -*- news-list-end -*-
60 (defun wl-news-previous-version-load ()
62 (let ((filename (expand-file-name
63 wl-news-version-file-name
64 elmo-msgdb-directory))
65 (tmp-buffer (get-buffer-create " *wl-news-version-tmp*"))
66 insert-file-contents-pre-hook
67 insert-file-contents-post-hook
69 (if (not (file-readable-p filename))
70 wl-news-default-previous-version
71 (set-buffer tmp-buffer)
72 (insert-file-contents filename)
75 (read (current-buffer))
77 (kill-buffer tmp-buffer)
80 (defun wl-news-previous-version-save (version)
82 (let ((filename (expand-file-name
83 wl-news-version-file-name
84 elmo-msgdb-directory))
85 (tmp-buffer (get-buffer-create " *wl-news-version-tmp*")))
86 (set-buffer tmp-buffer)
88 (prin1 version tmp-buffer)
89 (princ "\n" tmp-buffer)
90 (if (file-writable-p filename)
91 (write-region (point-min) (point-max)
93 (message "%s is not writable." filename))
94 (kill-buffer tmp-buffer))))
96 (defun wl-news-append-news (lang previous-version)
97 (let* ((news-list (cdr (assoc lang wl-news-news-alist))))
98 (mime-edit-insert-tag "text" "plain" "" "")
100 (product-version-compare
101 (car (car news-list))
103 (insert (cdr (car news-list)) "\n\n")
104 (setq news-list (cdr news-list)))))
106 (defun wl-news-send-news (previous-version)
107 (let ((lang (if (listp wl-news-lang)
109 (list wl-news-lang))))
110 (save-window-excursion
111 (wl-draft-create-buffer)
112 (wl-draft-create-contents
113 (list (cons 'From "WL Release 'Bot <wl@lists.airs.net>")
114 (cons 'To (wl-draft-eword-encode-address-list wl-from) )
115 (cons 'Subject "Wanderlust NEWS")
116 (cons 'User-Agent wl-generate-mailer-string-function)
117 (cons 'Organization wl-organization)
118 (and wl-auto-insert-x-face
119 (file-exists-p wl-x-face-file)
120 'wl-draft-insert-x-face-field-here)))
121 (wl-draft-insert-mail-header-separator)
122 (wl-draft-prepare-edit)
123 (goto-char (point-max))
126 (car lang) previous-version)
127 (setq lang (cdr lang)))
128 (let (wl-interactive-send)
129 (wl-draft-send 'kill-when-done)))))
132 (product-provide (provide 'wl-news) (require 'wl-version))
134 ;;; wl-news.el ends here