From 6aed243986c86e4f8d62e0415a48a2030d928720 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 5 Oct 2001 00:07:16 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 6 ++++++ lisp/mail-source.el | 8 +++++++- texi/ChangeLog | 11 ++++++++++- texi/Makefile.in | 4 ++-- texi/gnus-ja.texi | 5 +++++ texi/gnus.texi | 5 +++++ 6 files changed, 35 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5b602b1..f0718ea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-10-04 Simon Josefsson + + * mail-source.el (mail-source-movemail-program): New variable. + (mail-source-movemail): Use it. Suggested by Taylor Hutt + . + 2001-10-03 Simon Josefsson * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): New param. diff --git a/lisp/mail-source.el b/lisp/mail-source.el index 0fb724c..30fab7f 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -264,6 +264,11 @@ If non-nil, this maildrop will be checked periodically for new mail." :group 'mail-source :type 'number) +(defcustom mail-source-movemail-program nil + "If non-nil, name of program for fetching new mail." + :group 'mail-source + :type '(choice (const nil) string)) + ;;; Internal variables. (defvar mail-source-string "" @@ -525,7 +530,8 @@ Pass INFO on to CALLBACK." 'call-process (append (list - (expand-file-name "movemail" exec-directory) + (or mail-source-movemail-program + (expand-file-name "movemail" exec-directory)) nil errors nil from to))))) (when (file-exists-p to) (set-file-modes to mail-source-default-file-modes)) diff --git a/texi/ChangeLog b/texi/ChangeLog index 3f4c5f7..8325cb7 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,6 +1,15 @@ +2001-10-04 Simon Josefsson + + * gnus.texi (Mail Source Customization): Add. + +2001-10-04 10:00:00 ShengHuo ZHU + + * Makefile.in (dvi): Don't depend on tmps. + 2001-10-03 08:00:00 ShengHuo ZHU - * emacs-mime.texi (mailcap): rvplayer -> wavplayer. + * emacs-mime.texi (mailcap): rvplayer -> wavplayer. Thanks to + Martin Kretzschmar . 2001-09-29 Simon Josefsson diff --git a/texi/Makefile.in b/texi/Makefile.in index 291865e..e57d882 100644 --- a/texi/Makefile.in +++ b/texi/Makefile.in @@ -69,9 +69,9 @@ most: texi2latex.elc latex latexps $(MAKEINFO) -I $(srcdir) -o $* $<; \ fi -dvi: tmps gnus.dvi message.dvi refcard.dvi emacs-mime.dvi +dvi: gnus.dvi message.dvi refcard.dvi emacs-mime.dvi -pdf: tmps gnus.pdf message.pdf refcard.pdf emacs-mime.pdf +pdf: gnus.pdf message.pdf refcard.pdf emacs-mime.pdf .texi.dvi : sed -e '/@iflatex/,/@end iflatex/d' $< > gnustmp.texi diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 604e60b..6898385 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -11664,6 +11664,11 @@ www.my-deja.com などのウェブメールサーバーからメールを取得します。 @vindex mail-source-default-file-modes 全ての新しいメールファイルはこのファイルモードになります。初期値 は 384 です。 + +@item mail-source-movemail-program +@vindex mail-source-movemail-program +非-nil だったら新着メールの取り込むためのプログラムの名前。nil だった +ら @var{exec-directory} にある @code{movemail}。 @end table @node Fetching Mail diff --git a/texi/gnus.texi b/texi/gnus.texi index a808089..49eba2a 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -12247,6 +12247,11 @@ relevant if @code{mail-source-delete-incoming} is @code{nil}. @vindex mail-source-default-file-modes All new mail files will get this file mode. The default is 384. +@item mail-source-movemail-program +@vindex mail-source-movemail-program +If non-nil, name of program for fetching new mail. If nil, +@code{movemail} in @var{exec-directory}. + @end table -- 1.7.10.4