The issue arises with org-agenda-redo. When running this command it selects
the last file that was used to make an agenda buffer. Since the previous
file used to do that was *SUMO* it tries to rebuild using that if currently
an *Org Agenda* buffer was open because this is the only time
(org-agenda-redo) is run.

If you put (org-agenda-list) or anything that modifies the agenda buffer in
place >>>Insert here (probably something better to do than this but with my
limited knowledge of org and recent uptaking not sure. Read 2 below). This
forces so *Org Agenda* is set again. The command works fine and
(org-agenda-redo) updates and places you in the buffer.

1) Not entirely sure why you need to run (org-agenda-redo) at all?? Just
seems non-essential unless something was saved that would now be in the
agenda view and wasn't before. Not opposed just curious why it was put

2) I would say implementation suggested above is fine but there is probably
a lot better way to implement it. Like possibly setting whatever remembers
*SUMO* in org-agenda to the a-buffer file before running (org-agenda-redo).

Any help would be great because want to set autosave for mobileorg when
idle but always messes with the agenda buffer which is annoying.

Pasted org-mobile-push from current development pulled today:

(defun org-mobile-push ()
  "Push the current state of Org affairs to the WebDAV directory.
This will create the index file, copy all agenda files there, and also
create all custom agenda views, for upload to the mobile phone."
  (let ((a-buffer (get-buffer org-agenda-buffer-name)))
    (let ((org-agenda-buffer-name "*SUMO*")
  (org-agenda-tag-filter org-agenda-tag-filter)
  (org-agenda-redo-command org-agenda-redo-command))
  (run-hooks 'org-mobile-pre-push-hook)
  (message "Creating agendas...")
  (let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda))
  (message "Creating agendas...done")
  (org-save-all-org-buffers) ; to save any IDs created by this process
  (message "Copying files...")
  (message "Writing index file...")
  (message "Writing checksums...")
  (run-hooks 'org-mobile-post-push-hook)))
>>> Insert Here
    (when (and a-buffer (buffer-live-p a-buffer))
      (if (not (get-buffer-window a-buffer))
  (kill-buffer a-buffer)
 (let ((cw (selected-window)))
  (select-window (get-buffer-window a-buffer))
  (select-window cw)))))
  (message "Files for mobile viewer staged"))


Reply via email to