From: yamaoka Date: Wed, 3 Feb 1999 22:11:10 +0000 (+0000) Subject: * (gnus-setup-for-offline): Add default value. X-Git-Tag: semi-gnus-6_10_4~5 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f04ce9eeddcf2d3ee5d56b67d885b5376666c536;p=elisp%2Fgnus.git- * (gnus-setup-for-offline): Add default value. --- diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el index 3cce4c8..73bb60f 100644 --- a/lisp/gnus-ofsetup.el +++ b/lisp/gnus-ofsetup.el @@ -1,6 +1,6 @@ ;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News. ;;; -;;; $Id: gnus-ofsetup.el,v 1.1.4.3 1999-02-03 06:45:06 yamaoka Exp $ +;;; $Id: gnus-ofsetup.el,v 1.1.4.4 1999-02-03 22:11:10 yamaoka Exp $ ;;; ;;; Copyright (C) 1998 Tatsuya Ichikawa ;;; Author: Tatsuya Ichikawa @@ -220,8 +220,9 @@ '(("pop" 1) ("apop" 2)) nil t nil)) (islisp (y-or-n-p "Do you use pop3.el to fetch mail? "))) (if (not islisp) - (let ((prog (read-file-name "movemail program name: ")) - (args (read-from-minibuffer "movemail options: "))) + (let ((prog (read-file-name "movemail program name: " + exec-directory "movemail")) + (args (read-from-minibuffer "movemail options: " "-pf"))) (setq mail-source (append mail-source (list