Mercurial > emacs

comparison lisp/org/org-vm.el @ 111506:5cb272c831e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Install org-mode version 7.3
author Carsten Dominik <carsten.dominik@gmail.com>
date Thu, 11 Nov 2010 22:10:19 -0600
parents a150e8a14679
children a7740098b594
comparison
equal deleted inserted replaced
111505:62aa3653746a 111506:5cb272c831e8
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Carsten Dominik <carsten at orgmode dot org> 6 ;; Author: Carsten Dominik <carsten at orgmode dot org>
7 ;; Keywords: outlines, hypermedia, calendar, wp 7 ;; Keywords: outlines, hypermedia, calendar, wp
8 ;; Homepage: http://orgmode.org 8 ;; Homepage: http://orgmode.org
9 ;; Version: 7.01 9 ;; Version: 7.3
10 ;; 10 ;;
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 ;; 12 ;;
13 ;; GNU Emacs is free software: you can redistribute it and/or modify 13 ;; GNU Emacs is free software: you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
64 (folder buffer-file-name) 64 (folder buffer-file-name)
65 (subject (vm-su-subject message)) 65 (subject (vm-su-subject message))
66 (to (vm-get-header-contents message "To")) 66 (to (vm-get-header-contents message "To"))
67 (from (vm-get-header-contents message "From")) 67 (from (vm-get-header-contents message "From"))
68 (message-id (vm-su-message-id message)) 68 (message-id (vm-su-message-id message))
69 (date (vm-get-header-contents message "Date"))
70 (date-ts (and date (format-time-string
71 (org-time-stamp-format t)
72 (date-to-time date))))
73 (date-ts-ia (and date (format-time-string
74 (org-time-stamp-format t t)
75 (date-to-time date))))
69 desc link) 76 desc link)
70 (org-store-link-props :type "vm" :from from :to to :subject subject 77 (org-store-link-props :type "vm" :from from :to to :subject subject
71 :message-id message-id) 78 :message-id message-id)
79 (when date
80 (org-add-link-props :date date :date-timestamp date-ts
81 :date-timestamp-inactive date-ts-ia))
72 (setq message-id (org-remove-angle-brackets message-id)) 82 (setq message-id (org-remove-angle-brackets message-id))
73 (setq folder (abbreviate-file-name folder)) 83 (setq folder (abbreviate-file-name folder))
74 (if (and vm-folder-directory 84 (if (and vm-folder-directory
75 (string-match (concat "^" (regexp-quote vm-folder-directory)) 85 (string-match (concat "^" (regexp-quote vm-folder-directory))
76 folder)) 86 folder))