2001-11-01 07:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / lpath.el

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 6fe86d3..d9433b4 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -18,15 +18,17 @@
               find-image font-create-object gnus-mule-get-coding-system
               font-lock-set-defaults
               image-size image-type-available-p insert-image
+              image-type-from-file-header
               make-temp-file message-xmas-redefine
               mail-aliases-setup mm-copy-tree
               mule-write-region-no-coding-system put-image
               ring-elements
-              charsetp
+              charsetp sort-coding-systems
               coding-system-p
               propertize make-mode-line-mouse2-map
               make-mode-line-mouse-map
               rmail-select-summary rmail-summary-exists rmail-update-summary
+              rmail-toggle-header
               sc-cite-regexp set-font-family set-font-size temp-directory
               string-as-multibyte
               tool-bar-add-item tool-bar-add-item-from-menu
@@ -49,6 +51,8 @@
              url-current-callback-func url-be-asynchronous
              url-current-callback-data url-working-buffer
              url-current-mime-headers w3-meta-charset-content-type-regexp
+             rmail-enable-mime-composing 
+             rmail-insert-mime-forwarded-message-function 
              w3-meta-content-type-charset-regexp))
 
 (if (featurep 'xemacs)
@@ -73,7 +77,8 @@
                     set-face-stipple set-frame-face-alist track-mouse
                     url-retrieve w3-form-encode-xwfu window-at
                     window-edges x-color-values x-popup-menu browse-url
-                    frame-char-height frame-char-width))
+                    frame-char-height frame-char-width
+                    xml-parse-region))
       (maybe-bind '(buffer-display-table
                    buffer-file-coding-system font-lock-defaults
                    global-face-data gnus-article-x-face-too-ugly
@@ -89,7 +94,7 @@
                enable-multibyte-characters help-echo-owns-message))
   (maybe-fbind '(Info-goto-node
                 add-submenu annotation-glyph annotationp babel-as-string
-                button-press-event-p char-int characterp color-instance-name
+                button-press-event-p characterp color-instance-name
                 color-instance-rgb-components color-name delete-annotation
                 device-class device-on-window-system-p device-type
                 display-error event-glyph event-object event-point
@@ -103,7 +108,8 @@
                 set-face-doc-string set-glyph-image set-glyph-property
                 specifier-instance url-generic-parse-url
                 valid-image-instantiator-format-p w3-do-setup
-                window-pixel-height window-pixel-width)))
+                window-pixel-height window-pixel-width
+                xml-parse-region)))
 
 (require 'custom)