From 46ce15860c510f2d8f54a0283d7ce82dba16bca2 Mon Sep 17 00:00:00 2001
From: Jesper Harder <harder@ifa.au.dk>
Date: Tue, 6 Jan 2004 02:52:10 +0000
Subject: [PATCH] * mm-view.el (mm-view-pkcs7-decrypt): Replace
 gnus-completing-read-maybe-default with completing-read.

* gnus-util.el (gnus-completing-read): do.
(gnus-completing-read-maybe-default): Remove.
---
 lisp/ChangeLog    |  8 ++++++++
 lisp/gnus-util.el | 12 +-----------
 lisp/mm-view.el   |  4 +---
 3 files changed, 10 insertions(+), 14 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 076b2851a..c56540b6e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2004-01-06  Jesper Harder  <harder@ifa.au.dk>
+
+	* mm-view.el (mm-view-pkcs7-decrypt): Replace
+	gnus-completing-read-maybe-default with completing-read.
+
+	* gnus-util.el (gnus-completing-read): do.
+	(gnus-completing-read-maybe-default): Remove.
+
 2004-01-06  Steve Youngs  <sryoungs@bigpond.net.au>
 
 	* password.el: Only autoload `run-at-time' if not XEmacs.
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 312613560..58c6633c9 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1238,22 +1238,12 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
    (t
     (list 'local-map map))))
 
-(defmacro gnus-completing-read-maybe-default (prompt table &optional predicate
-					      require-match initial-contents
-					      history default)
-  "Like `completing-read', allowing for non-existent 7th arg in older XEmacsen."
-  `(completing-read ,prompt ,table ,predicate ,require-match
-                    ,initial-contents ,history
-                    ,@(if (and (featurep 'xemacs) (< emacs-minor-version 2))
-                          ()
-                        (list default))))
-
 (defun gnus-completing-read (prompt table &optional predicate require-match
 				    history)
   (when (and history
 	     (not (boundp history)))
     (set history nil))
-  (gnus-completing-read-maybe-default
+  (completing-read
    (if (symbol-value history)
        (concat prompt " (" (car (symbol-value history)) "): ")
      (concat prompt ": "))
diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index f6e4a66d7..a33448b05 100644
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -566,8 +566,6 @@ this keymap, add them to `w3m-minor-mode-map' instead of this keymap.")))
   (sit-for 1)
   t)
 
-(autoload 'gnus-completing-read-maybe-default "gnus-util" nil nil 'macro)
-
 (defun mm-view-pkcs7-decrypt (handle)
   (insert-buffer-substring (mm-handle-buffer handle))
   (goto-char (point-min))
@@ -578,7 +576,7 @@ this keymap, add them to `w3m-minor-mode-map' instead of this keymap.")))
    (if (= (length smime-keys) 1)
        (cadar smime-keys)
      (smime-get-key-by-email
-      (gnus-completing-read-maybe-default
+      (completing-read
        (concat "Decipher using which key? "
 	       (if smime-keys (concat "(default " (caar smime-keys) ") ")
 		 ""))
-- 
2.34.1