643 |
(prog1 quit-flag (setq quit-flag nil))) |
(prog1 quit-flag (setq quit-flag nil))) |
644 |
(progn |
(progn |
645 |
(message "%s%s" p (single-key-description event)) |
(message "%s%s" p (single-key-description event)) |
646 |
(and (fboundp 'deallocate-event) |
(if (fboundp 'deallocate-event) |
647 |
(deallocate-event event)) |
(deallocate-event event)) |
648 |
(setq quit-flag nil) |
(setq quit-flag nil) |
649 |
(signal 'quit '()))) |
(signal 'quit '()))) |
650 |
(let ((char |
(let ((char |
659 |
((setq elt (rassq char alist)) |
((setq elt (rassq char alist)) |
660 |
(message "%s%s" p (car elt)) |
(message "%s%s" p (car elt)) |
661 |
(setq p (cdr elt))) |
(setq p (cdr elt))) |
662 |
((and (fboundp 'button-release-event-p) |
((if (fboundp 'button-release-event-p) |
663 |
(button-release-event-p event)) ; ignore them |
(button-release-event-p event)) ; ignore them |
664 |
nil) |
nil) |
665 |
(t |
(t |
666 |
(message "%s%s" p (single-key-description event)) |
(message "%s%s" p (single-key-description event)) |
670 |
(discard-input) |
(discard-input) |
671 |
(if (eq p prompt) |
(if (eq p prompt) |
672 |
(setq p (concat "Try again. " prompt))))))) |
(setq p (concat "Try again. " prompt))))))) |
673 |
(and (fboundp 'deallocate-event) |
(if (fboundp 'deallocate-event) |
674 |
(deallocate-event event)) |
(deallocate-event event)) |
675 |
p)) |
p)) |
676 |
|
|
677 |
(defun sc-scan-info-alist (alist) |
(defun sc-scan-info-alist (alist) |
1517 |
(progn (forward-line -1) |
(progn (forward-line -1) |
1518 |
(or (= (point) (mail-header-end)) |
(or (= (point) (mail-header-end)) |
1519 |
(and (eq major-mode 'mh-letter-mode) |
(and (eq major-mode 'mh-letter-mode) |
1520 |
(mh-in-header-p))))) |
(with-no-warnings |
1521 |
|
(mh-in-header-p)))))) |
1522 |
(progn (forward-line) |
(progn (forward-line) |
1523 |
(let ((kill-lines-magic t)) |
(let ((kill-lines-magic t)) |
1524 |
(kill-line)))))) |
(kill-line)))))) |