[nongnu] elpa/vm 7b5009c0e5 13/20: Fix "interactive only" warnings

[ELPA Syncer]

branch: elpa/vm
commit 7b5009c0e56203364aee6e435ccc8b87013fe732
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@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)))