/[emacs]/emacs/lisp/gnus/mm-util.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27.6.5 by miles, Tue Sep 21 09:34:07 2004 UTC revision 1.27.6.6 by miles, Wed Sep 29 07:22:15 2004 UTC
# Line 133  In XEmacs, also return non-nil if CS is Line 133  In XEmacs, also return non-nil if CS is
133    
134  (defvar mm-charset-synonym-alist  (defvar mm-charset-synonym-alist
135    `(    `(
     ;; Perfectly fine?  A valid MIME name, anyhow.  
     ,@(unless (mm-coding-system-p 'big5)  
        '((big5 . cn-big5)))  
136      ;; Not in XEmacs, but it's not a proper MIME charset anyhow.      ;; Not in XEmacs, but it's not a proper MIME charset anyhow.
137      ,@(unless (mm-coding-system-p 'x-ctext)      ,@(unless (mm-coding-system-p 'x-ctext)
138         '((x-ctext . ctext)))         '((x-ctext . ctext)))
     ;; Apparently not defined in Emacs 20, but is a valid MIME name.  
     ,@(unless (mm-coding-system-p 'gb2312)  
        '((gb2312 . cn-gb-2312)))  
139      ;; ISO-8859-15 is very similar to ISO-8859-1.  But it's _different_!      ;; ISO-8859-15 is very similar to ISO-8859-1.  But it's _different_!
140      ,@(unless (mm-coding-system-p 'iso-8859-15)      ,@(unless (mm-coding-system-p 'iso-8859-15)
141         '((iso-8859-15 . iso-8859-1)))         '((iso-8859-15 . iso-8859-1)))
# Line 727  If INHIBIT is non-nil, inhibit `mm-inhib Line 721  If INHIBIT is non-nil, inhibit `mm-inhib
721  (defun mm-image-load-path (&optional package)  (defun mm-image-load-path (&optional package)
722    (let (dir result)    (let (dir result)
723      (dolist (path load-path (nreverse result))      (dolist (path load-path (nreverse result))
724        (if (file-directory-p        (when (and path
725             (setq dir (concat (file-name-directory                   (file-directory-p
726                                (directory-file-name path))                    (setq dir (concat (file-name-directory
727                               "etc/" (or package "gnus/"))))                                       (directory-file-name path))
728            (push dir result))                                      "etc/" (or package "gnus/")))))
729            (push dir result))
730        (push path result))))        (push path result))))
731    
732  ;; Fixme: This doesn't look useful where it's used.  ;; Fixme: This doesn't look useful where it's used.

Legend:
Removed from v.1.27.6.5  
changed lines
  Added in v.1.27.6.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26