branch: elpa/vm
commit 7b5009c0e56203364aee6e435ccc8b87013fe732
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
Fix "interactive only" warnings
* lisp/u-vm-color.el (u-vm-color-summary-mode): Avoid
`font-lock-fontify-buffer` on Emacs where it's interactive-only.
* lisp/vm-grepmail.el (vm-grepmail): `set-buffer-process-coding-system`
is for interactive use only.
* lisp/vm-biff.el (vm-biff-popup): `backward-delete-char` is for
interactive use only.
---
lisp/u-vm-color.el | 5 ++---
lisp/vm-biff.el | 2 +-
lisp/vm-grepmail.el | 2 +-
3 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/lisp/u-vm-color.el b/lisp/u-vm-color.el
index 1f037c1f05..f83374c7a0 100644
--- a/lisp/u-vm-color.el
+++ b/lisp/u-vm-color.el
@@ -402,7 +402,7 @@ subexpressions."
(count 1)
(t-vm-summary-format vm-summary-format)
(u-vm-color-xemacs-workaround
- (string-match "XEmacs\\|Lucid" emacs-version)))
+ (featurep 'xemacs)))
;; pick up all elements in the vm-summary-format
(while (string-match
(concat "%-?\\([0-9]+\\.\\)?-?\\([0-9]+\\)?"
@@ -585,8 +585,7 @@ subexpressions."
;; apparently emacs expects this statement here...
(font-lock-mode 1)
- (cond ((string-match "XEmacs\\|Lucid" emacs-version)
- ;; XEmacs
+ (cond ((featurep 'xemacs)
(setq u-vm-color-summary-keywords
(list (u-vm-color-make-summary-keywords)))
(put 'vm-summary-mode 'font-lock-defaults
diff --git a/lisp/vm-biff.el b/lisp/vm-biff.el
index 405f0163a4..2cc4a9f684 100644
--- a/lisp/vm-biff.el
+++ b/lisp/vm-biff.el
@@ -439,7 +439,7 @@ AddToFunc SelectWindow
(or force
(not (equal new-messages vm-biff-message-pointer))))
(setq msg (car new-messages))
- (backward-delete-char 1)
+ (delete-char -1)
(goto-char (point-min))
(setq truncate-lines t
diff --git a/lisp/vm-grepmail.el b/lisp/vm-grepmail.el
index b95d27c8c8..29d64a2429 100644
--- a/lisp/vm-grepmail.el
+++ b/lisp/vm-grepmail.el
@@ -179,7 +179,7 @@ FOLDERS should be a list of files/directories to search in."
(error "Cannot start grepmail"))
;; set the send-filter
(if (not (featurep 'xemacs))
- (set-buffer-process-coding-system 'raw-text-unix 'raw-text-unix))
+ (set-process-coding-system process 'raw-text-unix 'raw-text-unix))
(set-process-filter process 'vm-grepmail-process-filter)
(set-process-sentinel process 'vm-grepmail-process-done)
process)))
