From f04ce9eeddcf2d3ee5d56b67d885b5376666c536 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 3 Feb 1999 22:11:10 +0000 Subject: [PATCH] * (gnus-setup-for-offline): Add default value. --- lisp/gnus-ofsetup.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 -- 1.7.10.4