lpath.el: Bind mail-encode-mml for old Emacsen

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 888f203..38c384c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lpath.el: Bind mail-encode-mml for old Emacsen.
+
 2012-09-17  Richard Stallman  <rms@gnu.org>
 
        * message.el (message-in-body-p): Don't set mark or modify buffer.

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 7c4d14a..8244b36 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -15,6 +15,9 @@
                url-version w3-meta-charset-content-type-regexp
                w3-meta-content-type-charset-regexp))
 
+  (when (<= emacs-major-version 23)
+    (maybe-bind '(mail-encode-mml)))
+
   (when (<= emacs-major-version 22)
     (defun ecomplete-add-item (type key text))
     (defun ecomplete-save nil)
@@ -82,12 +85,13 @@
      epa-file-encrypt-to eudc-protocol filladapt-mode
      gnus-agent-expire-current-dirs help-xref-stack-item idna-program
      installation-directory iswitchb-mode iswitchb-temp-buflist line-spacing
-     mark-active mouse-selection-click-count mouse-selection-click-count-buffer
-     ps-print-color-p rmail-default-file rmail-default-rmail-file
-     rmail-insert-mime-forwarded-message-function show-trailing-whitespace
-     smtpmail-default-smtp-server temporary-file-directory tool-bar-mode
-     transient-mark-mode url-version w3-meta-charset-content-type-regexp
-     w3m-link-map w3-meta-content-type-charset-regexp))
+     mail-encode-mml mark-active mouse-selection-click-count
+     mouse-selection-click-count-buffer ps-print-color-p rmail-default-file
+     rmail-default-rmail-file rmail-insert-mime-forwarded-message-function
+     show-trailing-whitespace smtpmail-default-smtp-server
+     temporary-file-directory tool-bar-mode transient-mark-mode url-version
+     w3-meta-charset-content-type-regexp w3m-link-map
+     w3-meta-content-type-charset-regexp))
 
   (when (or (and (= emacs-major-version 21) (= emacs-minor-version 4))
            (featurep 'sxemacs))