Function: feedmail-queue-send-edit-prompt-inner

feedmail-queue-send-edit-prompt-inner is a byte-compiled function defined in feedmail.el.gz.

Signature

(feedmail-queue-send-edit-prompt-inner DEFAULT PROMPT REPROMPT HELPER STANDARD-ALIST USER-ALIST)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/feedmail.el.gz
(defun feedmail-queue-send-edit-prompt-inner (default prompt reprompt helper
					      standard-alist user-alist)
  (feedmail-say-debug ">in-> feedmail-queue-send-edit-prompt-inner")
  ;; Some implementation ideas here came from the userlock.el code
  (or defining-kbd-macro (discard-input))
  (save-window-excursion
    (let ((answer) (d-char) (d-string " "))
      (if (stringp default)
	  (progn
	    (setq d-char   (string-to-char default)
		  d-string default))
	(setq d-string  (char-to-string default))
	(setq d-char    default)
	)
      (while (null answer)
	(message prompt d-string)
	(let ((user-sez
	       (let ((inhibit-quit t) (cursor-in-echo-area t) (echo-keystrokes 0))
		 (read-char-exclusive))))
	  (if (= user-sez help-char)
	      (setq answer (cons '^ helper))
	    (if (or (eq user-sez ?\C-m) (eq user-sez ?\C-j) (eq user-sez ?y))
		(setq user-sez d-char))
            (setq answer (or (assoc user-sez user-alist)
                             (assoc user-sez standard-alist)))
	    (if (or (null answer) (null (cdr answer)))
		(progn
		  (beep)
		  (message reprompt d-string)
		  (sit-for 3)))
	    )))
      (cdr answer)
      )))