emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/mm-util.el
Date: Mon, 27 Sep 2004 04:01:53 -0400

Index: emacs/lisp/gnus/mm-util.el
diff -c emacs/lisp/gnus/mm-util.el:1.31 emacs/lisp/gnus/mm-util.el:1.32
*** emacs/lisp/gnus/mm-util.el:1.31     Mon Sep 20 12:03:04 2004
--- emacs/lisp/gnus/mm-util.el  Mon Sep 27 07:44:44 2004
***************
*** 133,147 ****
  
  (defvar mm-charset-synonym-alist
    `(
-     ;; Perfectly fine?  A valid MIME name, anyhow.
-     ,@(unless (mm-coding-system-p 'big5)
-        '((big5 . cn-big5)))
      ;; Not in XEmacs, but it's not a proper MIME charset anyhow.
      ,@(unless (mm-coding-system-p 'x-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)))
      ;; ISO-8859-15 is very similar to ISO-8859-1.  But it's _different_!
      ,@(unless (mm-coding-system-p 'iso-8859-15)
         '((iso-8859-15 . iso-8859-1)))
--- 133,141 ----
***************
*** 785,795 ****
  (defun mm-image-load-path (&optional package)
    (let (dir result)
      (dolist (path load-path (nreverse result))
!       (if (file-directory-p
!          (setq dir (concat (file-name-directory
!                             (directory-file-name path))
!                            "etc/" (or package "gnus/"))))
!         (push dir result))
        (push path result))))
  
  ;; Fixme: This doesn't look useful where it's used.
--- 779,790 ----
  (defun mm-image-load-path (&optional package)
    (let (dir result)
      (dolist (path load-path (nreverse result))
!       (when (and path
!                (file-directory-p
!                 (setq dir (concat (file-name-directory
!                                    (directory-file-name path))
!                                   "etc/" (or package "gnus/")))))
!       (push dir result))
        (push path result))))
  
  ;; Fixme: This doesn't look useful where it's used.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]