emacs - （日月年）を（月日年）に変換する方法

Question

Wanderlust の電子メールには、次のようなヘッダーがあります。

Date:  Wed, 23 Oct 2013 12:18:15 -0700

関数の先頭を変更してprint-to-pdf、現在のバッファーで最初に見つかった日付 (通常はバッファーの最初の行) を検索し、それを次のような提案に変換するpdf-file-nameようにします。

10_23_2013.pdf

私の関数の冒頭はprint-to-pdf次のようになります。

(defun print-to-pdf (pdf-file-name)
  "Print the current buffer to the given file."
  (interactive (list
    (ns-read-file-name "Write PDF file: " "/Users/HOME/.0.data/" nil ".pdf")))
  (cond (
    (not (equal pdf-file-name nil))

  ***

日付を検索して提案に変える方法を考えられる人はいますpdf-file-nameか?

---

編集: Wanderlust コードを grep して見つけた日付文字列関数の一部を次に示します。

(defun wl-make-date-string ()
  (let ((system-time-locale "C"))
    (format-time-string "%a, %d %b %Y %T %z")))

(defsubst wl-get-date-iso8601 (date)
  (or (get-text-property 0 'wl-date date)
      (let* ((d1 (timezone-fix-time date nil nil))
         (time (format "%04d%02d%02dT%02d%02d%02d"
               (aref d1 0) (aref d1 1) (aref d1 2)
               (aref d1 3) (aref d1 4) (aref d1 5))))
    (put-text-property 0 1 'wl-date time date)
    time)))

(defun wl-make-date-string ()
  (let ((s (current-time-string)))
    (string-match "\\`\\([A-Z][a-z][a-z]\\) +[A-Z][a-z][a-z] +[0-9][0-9]? *[0-9][0-9]?:[0-9][0-9]:[0-9][0-9] *[0-9]?[0-9]?[0-9][0-9]"
          s)
    (concat (wl-match-string 1 s) ", "
        (timezone-make-date-arpa-standard s (current-time-zone)))))

(defun wl-date-iso8601 (date)
  "Convert the DATE to YYMMDDTHHMMSS."
  (condition-case ()
      (wl-get-date-iso8601 date)
    (error "")))