[Orgmode] Re: Emacs opens a frame for each file in agenda list on org-mobile-push

[Steve Brown]

Good morning Charles,

here's the bug reported as promised.

I run Emacs from a pendrive on a Windows XP Pro box. My site-start.el 
contains the following to map home to <drive letter>:home on Emacs 
start. The first line has no line break after the defvar so there are 
only two lines of code.

Otherwise the Emacs is 'vanilla' - I use it for writing and not coding 
so I try to keep things simple ;-)

If you need anything else please let me know.

Thank you,

Steve

============= site-start.el ===================================

(defvar usb-drive-letter (substring data-directory 0 3)) (defvar 
usb-home-dir (concat usb-drive-letter "home/"))

(setenv "HOME" usb-home-dir)

============= site-start.el ===================================



=========== Bug Report ========================================

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

On executing org-mobile-push Emacs opens one frame per file listed in
the agenda file list.

I have deleted refences to specific files and replaced them with
"DELETED", all punctuation etc. will remain 'as is'.

I will also follow this with my full .emacs suitably edited for
personal information.

Emacs  : GNU Emacs 23.1.50.1 (i386-mingw-nt5.1.2600)
 of 2009-07-30 on BREPNB
Package: Org-mode version 6.33c

current state:
==============
(setq
 org-log-done 'time
 org-agenda-files '("~/Orgfiles/DELETED.org" "~/Orgfiles/work.org"
                    "~/Orgfiles/DELETED.org" "~/Orgfiles/trial.org"
                    "~/Orgfiles/busdev.org" "~/Orgfiles/home.org"
                    "~/Orgfiles/main.org" "~/Orgfiles/DELETED.org")
 org-agenda-include-diary t
 org-export-with-sub-superscripts nil
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-export-preprocess-hook '(org-export-blocks-preprocess)
 org-tab-first-hook '(org-hide-block-toggle-maybe)
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-todo-keywords '((sequence "TODO" "STARTED" "WAITING" "|" "DONE"
                      "DELEGATED")
                     )
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-default-notes-file "~/.notes.org"
 org-directory "~/Orgfiles/"
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                  org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207"
                   [org-add-hook change-major-mode-hook org-show-block-all
                    append local]
                   5]
                 )
 org-confirm-elisp-link-function 'yes-or-no-p
 org-occur-hook '(org-first-headline-recenter)
 )

=========== Bug Report ========================================

=========== .emacs ============================================

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(appt-display-duration 59)
 '(appt-display-format (quote window))
 '(diary-mail-addr "")
 '(display-battery-mode t)
 '(display-time-mode t)
 '(emacsw32-max-frames t)
 '(org-agenda-files (quote ("~/Orgfiles/DELETED.org" 
"~/Orgfiles/work.org" "~/Orgfiles/DELETED.org" "~/Orgfiles/trial.org" 
"~/Orgfiles/busdev.org" "~/Orgfiles/home.org" "~/Orgfiles/main.org" 
"~/Orgfiles/DELETED.org")))
 '(org-mobile-directory "~/stage")
 '(org-mobile-inbox-for-pull "~/Orgfiles/mobileinbox.org")
 '(show-paren-mode t)
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(view-diary-entries-initially t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )
;; emacs start up file
(setq inhibit-splash-screen t)
(setq make-backup-files nil)
(setq auto-save-mode nil)

;; diary customisation
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'list-diary-entries-hook 'sort-diary-entries t)
(setq european-calendar-style t)
;;; show date in status bar
(setq display-time-day-and-date t
      display-time-24hr-format t)
(display-time)
(appt-activate 1)
(setq appt-display-mode-line t)
(setq appt-display-format 'window)

;; Org Mode
(setq load-path (cons "~/org/lisp" load-path))
(setq load-path (cons "~/org/contrib/lisp" load-path))
(require 'org-install)
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(setq org-log-done t) ;timestamp on completion
(setq org-agenda-include-diary t)
(setq org-export-with-sub-superscripts nil)

;; Remember Mode
(add-to-list 'load-path "~/remember")
(require 'remember)

(setq org-directory "~/Orgfiles/")
(setq org-default-notes-file "~/.notes.org")
(setq remember-annotation-functions '(org-remember-annotation))
(setq remember-handler-functions '(org-remember-handler))
(add-hook 'remember-mode-hook 'org-remember-apply-template)
(define-key global-map "\C-cr" 'org-remember)

(defun gtd ()
   (interactive)
   (find-file "~/Orgfiles/main.org")
 )

(setq org-todo-keywords
       '((sequence "TODO" "STARTED" "WAITING" "|" "DONE" "DELEGATED")))

(setq printer-name "//LEI-10/Brother_SBR")

;; Spell checking
(setq-default ispell-program-name "~/Aspell/bin/aspell.exe")


=========== .emacs ============================================