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))) |
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. |