1 |
;;; mm-util.el --- Utility functions for Mule and low level things |
;;; mm-util.el --- Utility functions for Mule and low level things |
2 |
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 |
3 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
901 |
(file-directory-p |
(file-directory-p |
902 |
(setq dir (concat (file-name-directory |
(setq dir (concat (file-name-directory |
903 |
(directory-file-name path)) |
(directory-file-name path)) |
904 |
"etc/" (or package "gnus/"))))) |
"etc/images/" (or package "gnus/"))))) |
905 |
(push dir result)) |
(push dir result)) |
906 |
(push path result)))) |
(push path result)))) |
907 |
|
|