[Top][All Lists]
[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.