emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Arik Mitschang <arik.mitschang@mq.edu.au>
To: emacs-orgmode@gnu.org
Subject: Bug: org-capture - org-vm store link requires buffer file not always present [7.4]
Date: Wed, 09 Feb 2011 14:35:20 +1100	[thread overview]
Message-ID: <41zqc6bp2l518n.fsf@mq.edu.au> (raw)

In VM if you have created a virtual folder, the buffer is not associated
with any file. However, during org-capture a function called
org-vm-store-link requires that the buffer (the vm folder in this case)
be associated with a file causing a type-mismatch error. I can fix the
problem with the following patch:

----------------------------------
diff -U3 /usr/local/share/emacs/23.2/site-lisp/org-vm.el /var/folders/Qm/Qm3iuPk7E18cewjBO5PgL5AVPiY/-Tmp-/buffer-content-66395kXL
--- /usr/local/share/emacs/23.2/site-lisp/org-vm.el	2010-12-11 00:16:33.000000000 +1100
+++ /var/folders/Qm/Qm3iuPk7E18cewjBO5PgL5AVPiY/-Tmp-/buffer-content-66395kXL	2011-02-09 14:27:35.000000000 +1100
@@ -54,8 +54,12 @@
 ;; Implementation
 (defun org-vm-store-link ()
   "Store a link to a VM folder or message."
-  (when (or (eq major-mode 'vm-summary-mode)
+  (when (and (or (eq major-mode 'vm-summary-mode)
 	    (eq major-mode 'vm-presentation-mode))
+			 (save-excursion (vm-select-folder-buffer)
+							 (eq (type-of buffer-file-name)
+							 'string)))
     (and (eq major-mode 'vm-presentation-mode) (vm-summarize))
     (vm-follow-summary-cursor)
     (save-excursion
----------------------------------

Thanks
Arik

Emacs  : GNU Emacs 23.2.1 (x86_64-apple-darwin10.5.0, X toolkit)
 of 2011-01-14 on IT-4064.local
Package: Org-mode version 7.4

             reply	other threads:[~2011-02-09  3:35 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-02-09  3:35 Arik Mitschang [this message]
2011-02-09 16:19 ` Bug: org-capture - org-vm store link requires buffer file not always present [7.4] Bastien
2011-02-12 18:40 ` Bastien
     [not found]   ` <19800.33799.716636.291461@nobunaga.local>
2011-02-14 10:15     ` Bastien

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=41zqc6bp2l518n.fsf@mq.edu.au \
    --to=arik.mitschang@mq.edu.au \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).