Emacsist RSS --- If never, make it ever: C-h C-h

Avoiding the Issue

7011

这里 查看更多 Emacs 相关推荐文章最新 Emacs 圈的动态. 欢迎关注微信公众账号: Emacsist

Mailcap files are commonly used to tell your MUA how to open attachments. In Emacs this mechanism is used by Gnus, but outside of it as well, like in Org’s “Open exported file” export option. I wasn’t amused about it picking gv of all the things to open PDF files, so I’ve edited~/.mailcap and expected that to solve the problem once and for all. Except it didn’t.

(defvar mailcap-parsed-p nil)

(defun mailcap-parse-mailcaps (&optional path force)
  "Parse out all the mailcaps specified in a path string PATH.
Components of PATH are separated by the `path-separator' character
appropriate for this system.  If FORCE, re-parse even if already
parsed.  If PATH is omitted, use the value of environment variable
MAILCAPS if set; otherwise (on Unix) use the path from RFC 1524, plus
/usr/local/etc/mailcap."
  (interactive (list nil t))
  (when (or (not mailcap-parsed-p)
            force)
    (cond
     (path nil)
     ((getenv "MAILCAPS") (setq path (getenv "MAILCAPS")))
     ((memq system-type mailcap-poor-system-types)
      (setq path '("~/.mailcap" "~/mail.cap" "~/etc/mail.cap")))
     (t (setq path
              ;; This is per RFC 1524, specifically
              ;; with /usr before /usr/local.
              '("~/.mailcap" "/etc/mailcap" "/usr/etc/mailcap"
                "/usr/local/etc/mailcap"))))
    (let ((fnames (reverse
                   (if (stringp path)
                       (split-string path path-separator t)
                     path)))
          fname)
      (while fnames
        (setq fname (car fnames))
        (if (and (file-readable-p fname)
                 (file-regular-p fname))
            (mailcap-parse-mailcap fname))
        (setq fnames (cdr fnames))))
      (setq mailcap-parsed-p t)))

Laaaaars. Why would you cache the parse result, but never ever invalidate it? It’s not like it’shard or not been done before.

Merry Grav-Mass!

原文出处: Vasilij Schneidermann
原文地址: http://emacshorrors.com/posts/avoiding-the-issue.html
原文时间: 2015-12-26 05:17
本文地址: http://emacsist.com/10629
整理时间: 2015-12-26 19:00

本文由 Hick 整理,转载请保留以上信息;
COPYLEFTThe articles on this site come from Internet, thanks to all the original authors.
      If anything about COPYRIGHT, or LEFT, please contact Emacsist at gmail dot com .