From: yamaoka <yamaoka>
Date: Fri, 5 Oct 2001 00:07:16 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_4-08-quimby-last-~56
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6aed243986c86e4f8d62e0415a48a2030d928720;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

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  <jas@extundo.com>
+
+	* mail-source.el (mail-source-movemail-program): New variable.
+	(mail-source-movemail): Use it.  Suggested by Taylor Hutt
+	<thutt@thutt.vmware.com>.
+
 2001-10-03  Simon Josefsson  <jas@extundo.com>
 
 	* 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  <jas@extundo.com>
+
+	* gnus.texi (Mail Source Customization): Add.
+
+2001-10-04 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* Makefile.in (dvi): Don't depend on tmps.
+
 2001-10-03 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
-	* emacs-mime.texi (mailcap): rvplayer -> wavplayer.
+	* emacs-mime.texi (mailcap): rvplayer -> wavplayer.  Thanks to
+	Martin Kretzschmar <Martin.Kretzschmar@inf.tu-dresden.de>.
 
 2001-09-29  Simon Josefsson  <jas@extundo.com>
 
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