X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=a27a2cda5b7bfaed209365c36f6274084b974d6a;hp=3945b4c57c5c900f4770fb353e59df3c838a2dc2;hb=ba69bcbd078640c777abdcb533bb1619808e7444;hpb=d0be05efba1596876850275bdbd213f42ce7cd02

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 3945b4c57..a27a2cda5 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3226,9 +3226,17 @@ The directory to save in defaults to `gnus-article-save-directory'."
       (shell-command-on-region (point-min) (point-max) command nil)))
   (setq gnus-last-shell-command command))
 
+(defmacro gnus-read-string (prompt &optional initial-contents history 
+			    default-value)
+  "Like `read-string' but allow for older XEmacsen that don't have the 5th arg."
+  (if (and (featurep 'xemacs)
+	   (< emacs-minor-version 2))
+      `(read-string ,prompt ,initial-contents ,history)
+    `(read-string ,prompt ,initial-contents ,history ,default-value)))
+
 (defun gnus-summary-pipe-to-muttprint (&optional command)
   "Pipe this article to muttprint."
-  (setq command (read-string
+  (setq command (gnus-read-string
 		 "Print using command: " gnus-summary-muttprint-program
 		 nil gnus-summary-muttprint-program))
   (gnus-summary-save-in-pipe command))