comparison lisp/gnus/gnus-util.el @ 87300:b968c7f9a8b4

Merge from gnus--devo--0 Revision: [e-mail]/emacs--devo--0--patch-955

87299:a524d1739a14

	default
      answer)))

;; Two silly functions to ensure that all `y-or-n-p' questions clear
;; the echo area.
(defun gnus-y-or-n-p (prompt)
  (prog1
      (y-or-n-p prompt)
    (message "")))

(defun gnus-yes-or-no-p (prompt)
  (prog1
      (yes-or-no-p prompt)
    (message "")))

;; By Frank Schmitt <[e-mail]>. Allows to have
;; age-depending date representations. (e.g. just the time if it's
;; from today, the day of the week if it's within the last 7 days and
;; the full date if it's older)

87300:b968c7f9a8b4

	default
      answer)))

;; Two silly functions to ensure that all `y-or-n-p' questions clear
;; the echo area.
;;
;; Do we really need these aliases?  Workarounds for bugs in the corresponding
;; Emacs functions?  Maybe these bug are no longer present in any supported
;; (X)Emacs version?  Alias them to the original functions and see if anyone
;; reports a problem.  If not, replace with original functions.  --rsteib
;;
;; (defun gnus-y-or-n-p (prompt)
;;   (prog1
;;       (y-or-n-p prompt)
;;     (message "")))
;; (defun gnus-yes-or-no-p (prompt)
;;   (prog1
;;       (yes-or-no-p prompt)
;;     (message "")))

(defalias 'gnus-y-or-n-p 'y-or-n-p)
(defalias 'gnus-yes-or-no-p 'yes-or-no-p)

;; By Frank Schmitt <[e-mail]>. Allows to have
;; age-depending date representations. (e.g. just the time if it's
;; from today, the day of the week if it's within the last 7 days and
;; the full date if it's older)