diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-08-09 11:39:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-08-09 11:39:01 +0000 |
| commit | 1eb6c5b8c6fa28f072e938aba2a0920995d1daf7 (patch) | |
| tree | e6e8a8e4a1d0ef62d433798f5667a79195588e19 /lisp/mail/supercite.el | |
| parent | 9c6f79c2f219bf0dc80dc2afcd2bcf15db1ce7ac (diff) | |
| download | emacs-1eb6c5b8c6fa28f072e938aba2a0920995d1daf7.tar.gz emacs-1eb6c5b8c6fa28f072e938aba2a0920995d1daf7.tar.bz2 emacs-1eb6c5b8c6fa28f072e938aba2a0920995d1daf7.zip | |
(sc-ask, sc-no-blank-line-or-header): Avoid warnings.
Diffstat (limited to 'lisp/mail/supercite.el')
| -rw-r--r-- | lisp/mail/supercite.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index f172f95e661..a180c6c67ce 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -643,8 +643,8 @@ the list should be unique." (prog1 quit-flag (setq quit-flag nil))) (progn (message "%s%s" p (single-key-description event)) - (and (fboundp 'deallocate-event) - (deallocate-event event)) + (if (fboundp 'deallocate-event) + (deallocate-event event)) (setq quit-flag nil) (signal 'quit '()))) (let ((char @@ -659,8 +659,8 @@ the list should be unique." ((setq elt (rassq char alist)) (message "%s%s" p (car elt)) (setq p (cdr elt))) - ((and (fboundp 'button-release-event-p) - (button-release-event-p event)) ; ignore them + ((if (fboundp 'button-release-event-p) + (button-release-event-p event)) ; ignore them nil) (t (message "%s%s" p (single-key-description event)) @@ -670,8 +670,8 @@ the list should be unique." (discard-input) (if (eq p prompt) (setq p (concat "Try again. " prompt))))))) - (and (fboundp 'deallocate-event) - (deallocate-event event)) + (if (fboundp 'deallocate-event) + (deallocate-event event)) p)) (defun sc-scan-info-alist (alist) @@ -1517,7 +1517,8 @@ non-nil." (progn (forward-line -1) (or (= (point) (mail-header-end)) (and (eq major-mode 'mh-letter-mode) - (mh-in-header-p))))) + (with-no-warnings + (mh-in-header-p)))))) (progn (forward-line) (let ((kill-lines-magic t)) (kill-line)))))) |