From 3e58bf8b8f1b4b1ba5724f9381b39684e144ddf0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 9 Nov 2004 17:01:01 +0000 Subject: [PATCH] (diary-from-outlook, diary-from-outlook-gnus) (diary-from-outlook-rmail): Use NOCONFIRM rather than DONOTASK for argument name. --- lisp/calendar/diary-lib.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 110c4184e7d..679c4b991b6 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -1974,10 +1974,10 @@ message contains an appointment, don't make a diary entry." (throw 'finished t)))) nil)) -(defun diary-from-outlook (&optional donotask) +(defun diary-from-outlook (&optional noconfirm) "Maybe snarf diary entry from current Outlook-generated message. Currently knows about Gnus and Rmail modes. Unless the optional -argument DONOTASK is non-nil (which is the case when this +argument NOCONFIRM is non-nil (which is the case when this function is called interactively), then if an entry is found the user is asked to confirm its addition." (interactive "p") @@ -1987,7 +1987,7 @@ user is asked to confirm its addition." ((memq major-mode '(gnus-summary-mode gnus-article-mode)) #'diary-from-outlook-gnus) (t (error "Don't know how to snarf in `%s'" major-mode))))) - (funcall func donotask))) + (funcall func noconfirm))) (defvar gnus-article-mime-handles) @@ -1997,9 +1997,9 @@ user is asked to confirm its addition." (autoload 'gnus-narrow-to-body "gnus") (autoload 'mm-get-part "mm-decode") -(defun diary-from-outlook-gnus (&optional donotask) +(defun diary-from-outlook-gnus (&optional noconfirm) "Maybe snarf diary entry from Outlook-generated message in Gnus. -Unless the optional argument DONOTASK is non-nil (which is the case when +Unless the optional argument NOCONFIRM is non-nil (which is the case when this function is called interactively), then if an entry is found the user is asked to confirm its addition. Add this function to `gnus-article-prepare-hook' to notice appointments @@ -2015,7 +2015,7 @@ automatically." (gnus-narrow-to-body) (buffer-string))))) (when (diary-from-outlook-internal t) - (when (or donotask (y-or-n-p "Snarf diary entry? ")) + (when (or noconfirm (y-or-n-p "Snarf diary entry? ")) (diary-from-outlook-internal) (message "Diary entry added")))))) @@ -2024,9 +2024,9 @@ automatically." (defvar rmail-buffer) -(defun diary-from-outlook-rmail (&optional donotask) +(defun diary-from-outlook-rmail (&optional noconfirm) "Maybe snarf diary entry from Outlook-generated message in Rmail. -Unless the optional argument DONOTASK is non-nil (which is the case when +Unless the optional argument NOCONFIRM is non-nil (which is the case when this function is called interactively), then if an entry is found the user is asked to confirm its addition." (interactive "p") @@ -2037,7 +2037,7 @@ user is asked to confirm its addition." (point)) (point-max)))) (when (diary-from-outlook-internal t) - (when (or donotask (y-or-n-p "Snarf diary entry? ")) + (when (or noconfirm (y-or-n-p "Snarf diary entry? ")) (diary-from-outlook-internal) (message "Diary entry added")))))) -- 2.11.4.GIT