diff options
| author | Hiroki Sato <hrs@FreeBSD.org> | 2007-01-05 06:15:12 +0000 |
|---|---|---|
| committer | Hiroki Sato <hrs@FreeBSD.org> | 2007-01-05 06:15:12 +0000 |
| commit | d0570c134e050f9d5f054067ef2507303396f27c (patch) | |
| tree | bcd754ae9658f612846d3ecc3774245fa34190b2 /mail/mew/files | |
| parent | ecb9730a70c7b03dbbcf14c901318b3397ca2259 (diff) | |
| download | ports-d0570c134e050f9d5f054067ef2507303396f27c.tar.gz ports-d0570c134e050f9d5f054067ef2507303396f27c.zip | |
Notes
Diffstat (limited to 'mail/mew/files')
| -rw-r--r-- | mail/mew/files/patch-mew-key.el | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/mail/mew/files/patch-mew-key.el b/mail/mew/files/patch-mew-key.el new file mode 100644 index 000000000000..2b1dfff1677e --- /dev/null +++ b/mail/mew/files/patch-mew-key.el @@ -0,0 +1,23 @@ +--- mew-key.el.orig Wed Jul 12 18:22:49 2006 ++++ mew-key.el Thu Jan 4 20:14:11 2007 +@@ -609,13 +609,16 @@ + ;;; + + (defun mew-which-mew-etc () +- (let ((file "mew.el") +- (path load-path)) ++ (let ((file1 "mew.el") ++ (file2 "Mew.png") ++ (path (list "%%MEWICONDIR%%" load-path))) + (catch 'loop + (while path +- (if (file-exists-p (expand-file-name file (car path))) ++ (if (file-exists-p (expand-file-name file1 (car path))) + (throw 'loop (expand-file-name "etc" (car path))) +- (setq path (cdr path))))))) ++ (if (file-exists-p (expand-file-name file2 (car path))) ++ (throw 'loop (expand-file-name (car path))) ++ (setq path (cdr path)))))))) + + (defvar mew-icon-directory (mew-which-mew-etc)) + |