[patch] patch against vm-pine.el (add compatibility layer with emacs)

vm-pine-add-compat.patch (text/plain), 865 bytes, created by Xavier Maillard on 2006-09-16 01:56:04 UTC

--- vm-pine.el	2006-09-16 01:35:04.000000000 +0200
+++ vm-pine.el.new	2006-09-16 10:12:34.000000000 +0200
@@ -84,6 +84,27 @@
       (setq user-mail-address "unknown")
       (message "Please set the variable `user-mail-address'!!!")
       (sit-for 2)))
+
+;; From gnus-utils
+(defalias 'make-local-hook
+  (if (eq (get 'make-local-hook 'byte-compile)
+	  'byte-compile-obsolete)
+      'ignore				; Emacs
+    'make-local-hook))			; XEmacs
+
+;; add-local-hook
+(or (fboundp 'add-local-hook)
+    (defun add-local-hook (hook function &optional append)
+      (make-local-hook hook)
+      (add-hook hook function append t))
+    )
+
+;; remove-local-hook
+(or (fboundp 'remove-local-hook)
+    (defun remove-local-hook (hook function)
+      (if (local-variable-p hook (current-buffer))
+	  (remove-hook hook function t)))
+    )
       
 (defgroup vm nil
   "VM"