From: Chris Hanson Date: Mon, 26 Jun 2000 19:08:18 +0000 (+0000) Subject: When prompting for MIME info, if there's only one choice, don't bother X-Git-Tag: 20090517-FFI~3443 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a7ffb86491559c02f306187c2b1636d03da943ac;p=mit-scheme.git When prompting for MIME info, if there's only one choice, don't bother prompting. --- diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm index 84f3c084f..75798430a 100644 --- a/v7/src/imail/imail-top.scm +++ b/v7/src/imail/imail-top.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: imail-top.scm,v 1.191 2000/06/26 19:07:29 cph Exp $ +;;; $Id: imail-top.scm,v 1.192 2000/06/26 19:08:18 cph Exp $ ;;; ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology ;;; @@ -828,7 +828,7 @@ With prefix argument, prompt even when point is on an attachment." i.m)) (buffer-mime-info (mark-buffer mark)))))) (if (pair? alist) - (if (and (pair? (cdr alist)) (not always-prompt?)) + (if (or (pair? (cdr alist)) always-prompt?) (prompt-for-alist-value prompt alist (and info