[Orgmode] Bug: Export buffer w/o filename to ASCII errors out (patch attached) [6.34trans (release_6.34c.221.gadb2)]

[David Maus]

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.
------------------------------------------------------------------------

When exporting a buffer without associated filename and no #+TITLE set
to ASCII using C-c C-e A Org errors out with "Wrong type argument:
stringp, nil".

The problem is that `org-export-as-ascii' tries to obtain the
document's title and falls back to (buffer-file-name) -- what is nil
for a buffer w/o associated file.

Steps to reproduce:

  - create shiny new buffer C-x b *test* RET

  - turn on Org M-x org-mode RET

  - maybe insert something

  - C-c C-e A

Attached patch fixes this by using (buffer-file-name) only if there is
one and falls back to UNTITLED.

 -- David

Emacs  : GNU Emacs 24.0.50.1 (i486-pc-linux-gnu, GTK+ Version 2.18.7)
 of 2010-03-11 on elegiac, modified by Debian
Package: Org-mode version 6.34trans (release_6.34c.221.gadb2)

current state:
==============
(setq
 org-log-done 'time
 org-wl-nntp-prefer-web-links t
 org-export-latex-default-class "scrartcl"
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold) ("MAYB" 
:foreground "orange red" :weight bold)
                          ("WAIT" :foreground "firebrick" :weight bold) ("DONE" 
:foreground "green")
                          ("IDEA" :foreground "gold" :weight bold) ("CANC" 
:foreground "LightSlateGrey"))
 org-wl-shimbun-prefer-web-links t
 org-agenda-custom-commands '(("R" "Refile new tasks and notes" tags 
"LEVEL=1+REFILE"))
 org-agenda-files '("~/org/" "~/org/priv/" "~/org/pg/" "~/org/tec/")
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-agenda-tags-column -120
 org-checklist-export-function 'org-export-as-ascii
 org-after-todo-state-change-hook '(org-clock-out-if-current org-checklist)
 org-agenda-todo-ignore-scheduled t
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-log-redeadline 'time
 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-export-first-hook '(org-beamer-initialize-open-trackers)
 org-wl-link-remove-filter t
 org-todo-keywords '((sequence "TODO(t)" "WAIT(w)" "|" "DONE(D)") (sequence 
"IDEA(i)" "MAYB(m)" "|" "CANC(C)"))
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-default-notes-file "/home/david/org//bucket.org"
 org-directory "/home/david/org/"
 org-log-reschedule 'time
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-export-latex-classes '(("scrartcl"
                             "\\documentclass[paper=a4,12pt]{scrartcl}\n       
\\usepackage[utf8]{inputenc}\n       \\usepackage[T1]{fontenc}\n       
\\usepackage[ngerman]{babel}\n       \\usepackage{graphicx}\n       
\\usepackage{longtable}\n       \\usepackage{float}\n       
\\usepackage{wrapfig}\n       \\usepackage{soul}\n       
\\usepackage{amssymb}\n       \\usepackage{microtype}\n       
\\usepackage{lmodern}\n       \\parskip 6pt\n       
\\usepackage[autocite=footnote,style=authoryear]{biblatex}\n       
\\usepackage{hyperref}"
                             ("\\section{%s}" . "\\section*{%s}") 
("\\subsection{%s}" . "\\subsection*{%s}")
                             ("\\subsubsection{%s}" . "\\subsubsection*{%s}") 
("\\paragraph{%s}" . "\\paragraph*{%s}")
                             ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                            )
 org-publish-project-alist '(("ictsoc-web" :base-directory "~/www/ictsoc.de/" 
:base-extension "org" :publishing-directory
                              "~/www/ictsoc.de/" :publishing-function 
org-publish-org-to-html :author "David Maus" :email
                              "address@hidden" :author-info t :creator-info t 
:timestamp nil :headline-levels 4
                              :section-numbers nil :recursive t)
                             ("ictsoc-feed" :base-directory "~/www/ictsoc.de/" 
:base-extension "org" :publishing-directory
                              "~/www/ictsoc.de/" :publishing-url 
"http://ictsoc.de/"; :auto-index t :recursive t
                              :index-filename "feed.atom" :index-function 
org-atom-publish-feed-index :feed-map-entries
                              "LEVEL=1" :feed-id 
"109b1796-d619-424d-a339-596093767737")
                             ("ictsoc" :components ("ictsoc-web")))
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-email-link-description-format "%m"
 org-mode-hook '((lambda nil
                  (org-add-hook (quote change-major-mode-hook) (quote 
org-show-block-all) (quote append) (quote local)))
                 )
 org-refile-targets '((org-agenda-files :maxlevel . 5))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-refile-use-outline-path 'file
 org-log-into-drawer "LOGBOOK"
 org-agenda-todo-ignore-with-date t
 org-enforce-todo-dependencies t
 org-refile-allow-creating-parent-nodes 'confirm
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-tags-column -120
 org-remember-templates '(("todo" 116 "* TODO %^{Todo}\n  :PROPERTIES:\n  
:Created: %u\n  :END:" "~/org/bucket.org" bottom
                           nil)
                          ("idea" 105 "* IDEA %^{Idea}\n  :PROPERTIES:\n  
:Created: %u\n  :END:" "~/org/bucket.org" bottom
                           nil)
                          ("link" 119 "* %c :link:\n  :PROPERTIES:\n  :Created: 
%u\n  :END:\n%i" "~/org/bucket.org" bottom
                           nil)
                          ("appt" 97 "* %^{Appointment} :appt:\n  %^T\n  
:PROPERTIES:\n  :Created: %u\n  :END:"
                           "~/org/bucket.org" bottom nil)
                          ("note" 110 "* %^{Note} :note:\n  :PROPERTIES:\n  
:Created: %u\n  :END:" "~/org/bucket.org" bottom
                           nil)
                          )
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc 
org-beamer-auto-fragile-frames
                               org-beamer-place-default-actions-for-lists)
 )
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... address@hidden
Email..... address@hidden

org-ascii-untitled.diff
Description: Binary data

pgpTalmJWI3LL.pgp
Description: PGP signature