/[emacs]/emacs/lisp/mail/supercite.el
ViewVC logotype

Diff of /emacs/lisp/mail/supercite.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by ttn, Sat Aug 6 18:54:05 2005 UTC revision 1.53 by rms, Tue Aug 9 11:39:01 2005 UTC
# Line 643  the list should be unique." Line 643  the list should be unique."
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
# Line 659  the list should be unique." Line 659  the list should be unique."
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))
# Line 670  the list should be unique." Line 670  the list should be unique."
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)
# Line 1517  non-nil." Line 1517  non-nil."
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))))))

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26