18 files changed, 307 insertions, 115 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3ba1caf608..3a71d8edfa5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,18 @@
+2012-05-27  Eli Zaretskii  <eliz@gnu.org>
+
+        * mail/sendmail.el (mail-yank-region): Recognize
+        rmail-yank-current-message in addition to insert-buffer.  Fixes
+        mail-mode's "C-c C-r" that otherwise does nothing when invoked in
+        a *mail* buffer created through rmail-start-mail with sendmail as
+        mail-user-agent.
+
+2012-05-27  Chong Yidong  <cyd@gnu.org>
+
+        * net/gnutls.el (gnutls-min-prime-bits): Improve docstring.
+        Default to 256 (Bug#11267).
+
+        * help.el (describe-mode): Doc fix.
+
 2012-05-26  Glenn Morris  <rgm@gnu.org>
 
         * w32-fns.el (w32-init-info): Remove.
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 50ce9075dc0..3060c08ec51 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-27  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * gnus-msg.el (gnus-msg-mail): Ensure that gnus-newsgroup-name is
+        a string so that Gcc works (bug#11514).
+
 2012-05-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * legacy-gnus-agent.el (gnus-agent-unhook-expire-days):
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 815bd9e44a6..c6d0c3213a0 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -490,6 +490,7 @@ instead."
       (message-mail to subject other-headers continue
                     nil yank-action send-actions return-action)
     (let ((buf (current-buffer))
+          (gnus-newsgroup-name (or gnus-newsgroup-name ""))
           mail-buf)
       (gnus-setup-message 'message
         (message-mail to subject other-headers continue
diff --git a/lisp/help.el b/lisp/help.el
index 1a6aa9d13d2..317d5cf8f46 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -783,7 +783,10 @@ descriptions of the minor modes, each on a separate page.
 
 For this to work correctly for a minor mode, the mode's indicator
 variable \(listed in `minor-mode-alist') must also be a function
-whose documentation describes the minor mode."
+whose documentation describes the minor mode.
+
+If called from Lisp with a non-nil BUFFER argument, display
+documentation for the major and minor modes of that buffer."
   (interactive "@")
   (unless buffer (setq buffer (current-buffer)))
   (help-setup-xref (list #'describe-mode buffer)
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index cd3862985bd..3b262e3fb53 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1678,7 +1678,8 @@ Just \\[universal-argument] as argument means don't indent, insert no prefix,
 and don't delete any header fields."
   (interactive "P")
   (and (consp mail-reply-action)
-       (eq (car mail-reply-action) 'insert-buffer)
+       (memq (car mail-reply-action)
+             '(rmail-yank-current-message insert-buffer))
        (with-current-buffer (nth 1 mail-reply-action)
          (or (mark t)
              (error "No mark set: %S" (current-buffer))))
diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el
index 1bc319c796e..a306384c775 100644
--- a/lisp/net/gnutls.el
+++ b/lisp/net/gnutls.el
@@ -66,14 +66,16 @@ The files may not exist, in which case they will be ignored."
                  (repeat (file :tag "Bundle filename"))))
 
 ;;;###autoload
-(defcustom gnutls-min-prime-bits nil
-  "The minimum number of bits to be used in Diffie-Hellman key exchange.
-
-This sets the minimum accepted size of the key to be used in a
-client-server handshake.  If the server sends a prime with fewer than
-the specified number of bits the handshake will fail.
-
-A value of nil says to use the default gnutls value."
+(defcustom gnutls-min-prime-bits 256
+  ;; Several mail servers send fewer bits than the GnuTLS default.
+  ;; Currently, 256 appears to be a reasonable choice (Bug#11267).
+  "Minimum number of prime bits accepted by GnuTLS for key exchange.
+During a Diffie-Hellman handshake, if the server sends a prime
+number with fewer than this number of bits, the handshake is
+rejected.  \(The smaller the prime number, the less secure the
+key exchange is against man-in-the-middle attacks.)
+
+A value of nil says to use the default GnuTLS value."
   :type '(choice (const :tag "Use default value" nil)
                  (integer :tag "Number of bits" 512))
   :group 'gnutls)
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 8cdc90109b3..2d2bf699749 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,106 @@
+2012-05-27 Mark Shoulson <mark@kli.org>  (tiny change)
+
+        * org.el (org-fontify-entities): Fix bug: The entities \sup[123] and
+        \there4 were not "prettified" when org-pretty-entities was enabled.
+
+2012-05-27  Nicolas Goaziou  <n.goaziou@gmail.com>
+
+        * org.el (org-font-lock-add-priority-faces):
+        Restrict priorities fontification to headlines and inlinetasks.
+
+2012-05-27  Jambunathan K  <kjambunathan@gmail.com>
+
+        * org-odt.el (org-odt-init-outfile)
+        (org-odt-write-manifest-file):
+        Disable `nxml-auto-insert-xml-declaration-flag'.
+
+        * org-lparse.el (org-do-lparse): Don't trigger auto-mode processing.
+
+2012-05-27  Bastien Guerry  <bzg@gnu.org>
+
+        * org.el (org-scan-tags): Fix bug when building the scanner regexp.
+
+2012-05-27  Eric Schulte  <eric.schulte@gmx.com>
+
+        * ob.el (org-babel-capitalize-examplize-region-markers):
+        Controls the capitalization of begin and end example blocks.
+        (org-babel-examplize-region):
+        Optionally capitalize example block delimiters.
+
+        * ob-plantuml.el (org-babel-execute:plantuml):
+        Add a :java header argument to plantuml.
+
+        * org-exp-blocks.el (org-export-blocks-preprocess):
+        Even when the body of a block is not indented the boundary markers
+        should be indented to their original positions so things like list
+        indentation still work.
+
+        * ob.el (org-babel-parse-src-block-match):
+        Save match data during indentation check.
+
+2012-05-27  Bastien Guerry  <bzg@gnu.org>
+
+        * org.el (org-scan-tags): Correctly match TODO keywords.
+
+2012-05-27  Nicolas Goaziou  <n.goaziou@gmail.com>
+
+        * org-list.el (org-list-struct): Fix white spaces.
+        (org-list-swap-items, org-list-send-item): Fix visibility preservation.
+
+        * org-list.el (org-list-swap-items, org-list-send-item):
+        Preserve visibility when moving items.
+
+2012-05-27  Mark E. Shoulson  <mark@kli.org>  (tiny change)
+
+        * org.el (org-fontify-entities): Hide {} when prettifying entities.
+
+2012-05-27  Bastien Guerry  <bzg@gnu.org>
+
+        * org.el (org-cycle-internal-global): Prevent the display of
+        messages when cycling from with a Gnus article buffer.
+
+        * org-table.el (org-table-time-seconds-to-string):
+        Fix bug about handling a negative duration value.
+
+2012-05-27  Nicolas Goaziou  <n.goaziou@gmail.com>
+
+        * org.el (org-link-expand-abbrev): Fix docstring.
+
+        * org.el (org-translate-link): Fix bug.
+
+2012-05-27  Bastien Guerry  <bzg@gnu.org>
+
+        * org-agenda.el (org-agenda-bulk-mark-regexp):
+        Fix bug when setting the number of marked entries.
+
+        * org-table.el (org-tbl-calc-modes): Rename from `org-table-modes'.
+        (org-set-calc-mode, org-table-eval-formula): Use it.
+
+2012-05-27  Eric Schulte  <eric.schulte@gmx.com>
+
+        * ob.el (org-babel-find-named-result):
+        Fix bug finding empty named results.
+
+2012-05-27  Nicolas Goaziou  <n.goaziou@gmail.com>
+
+        * org.el (org-set-regexps-and-options):
+        Fix `org-planning-or-clock-line-re' regexp.  Indeed "\\>" will never
+        match since time keywords must end with colons, which are not word
+        constituents.
+
+2012-05-27  Bastien Guerry  <bzg@gnu.org>
+
+        * org-ctags.el (org-ctags-new-topic-template):
+        Fix the option default value back again.
+
+2012-05-27  Eric Schulte  <eric.schulte@gmx.com>
+
+        * org-bibtex.el (org-bibtex-export-to-kill-ring):
+        Don't rely on kill-new to return a string.
+
+        * org-bibtex.el (org-bibtex-headline):
+        Remove call to bibtex-reformat which often hangs.
+
 2012-04-27  Glenn Morris  <rgm@gnu.org>
 
         * org-ctags.el (org-ctags-new-topic-template):
diff --git a/lisp/org/ob-plantuml.el b/lisp/org/ob-plantuml.el
index 55729eb4172..7da689393a3 100644
--- a/lisp/org/ob-plantuml.el
+++ b/lisp/org/ob-plantuml.el
@@ -55,9 +55,10 @@ This function is called by `org-babel-execute-src-block'."
                        (error "plantuml requires a \":file\" header argument")))
          (cmdline (cdr (assoc :cmdline params)))
          (in-file (org-babel-temp-file "plantuml-"))
+         (java (or (cdr (assoc :java params)) ""))
          (cmd (if (not org-plantuml-jar-path)
                   (error "`org-plantuml-jar-path' is not set")
-                (concat "java -jar "
+                (concat "java " java " -jar "
                         (shell-quote-argument
                          (expand-file-name org-plantuml-jar-path))
                         (if (string= (file-name-extension out-file) "svg")
diff --git a/lisp/org/ob.el b/lisp/org/ob.el
index ac6de9f1bbf..05122487588 100644
--- a/lisp/org/ob.el
+++ b/lisp/org/ob.el
@@ -1159,7 +1159,8 @@ may be specified in the properties of the current outline entry."
                       (substring body 0 sub-length)
                     (or body "")))))
          (preserve-indentation (or org-src-preserve-indentation
-                                   (string-match "-i\\>" switches))))
+                                   (save-match-data
+                                     (string-match "-i\\>" switches)))))
     (list lang
           ;; get block body less properties, protective commas, and indentation
           (with-temp-buffer
@@ -1498,7 +1499,7 @@ buffer or nil if no such result exists."
     (catch 'is-a-code-block
       (when (re-search-forward
              (concat org-babel-result-regexp
-                     "[ \t]" (regexp-quote name) "[ \t\n\f\v\r]+") nil t)
+                     "[ \t]" (regexp-quote name) "[ \t]*[\n\f\v\r]") nil t)
         (when (and (string= "name" (downcase (match-string 1)))
                    (or (beginning-of-line 1)
                        (looking-at org-babel-src-block-regexp)
@@ -1957,11 +1958,16 @@ file's directory then expand relative links."
                  (stringp (car result)) (stringp (cadr result)))
         (format "[[file:%s][%s]]" (car result) (cadr result))))))
 
+(defvar org-babel-capitalize-examplize-region-markers nil
+  "Make true to capitalize begin/end example markers inserted by code blocks.")
+
 (defun org-babel-examplize-region (beg end &optional results-switches)
   "Comment out region using the inline '==' or ': ' org example quote."
   (interactive "*r")
   (flet ((chars-between (b e)
-                        (not (string-match "^[\\s]*$" (buffer-substring b e)))))
+                        (not (string-match "^[\\s]*$" (buffer-substring b e))))
+         (maybe-cap (str) (if org-babel-capitalize-examplize-region-markers
+                              (upcase str) str)))
     (if (or (chars-between (save-excursion (goto-char beg) (point-at-bol)) beg)
             (chars-between end (save-excursion (goto-char end) (point-at-eol))))
         (save-excursion
@@ -1978,10 +1984,12 @@ file's directory then expand relative links."
                 (t
                  (goto-char beg)
                  (insert (if results-switches
-                             (format "#+begin_example%s\n" results-switches)
-                           "#+begin_example\n"))
+                             (format "%s%s\n"
+                                     (maybe-cap "#+begin_example")
+                                     results-switches)
+                           (maybe-cap "#+begin_example\n")))
                  (if (markerp end) (goto-char end) (forward-char (- end beg)))
-                 (insert "#+end_example\n"))))))))
+                 (insert (maybe-cap "#+end_example\n")))))))))
 
 (defun org-babel-update-block-body (new-body)
   "Update the body of the current code block to NEW-BODY."
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index ddb56ca4bac..367d8e84471 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -8315,13 +8315,13 @@ This is a command that has to be installed in `calendar-mode-map'."
 (defun org-agenda-bulk-mark-regexp (regexp)
   "Mark entries match REGEXP."
   (interactive "sMark entries matching regexp: ")
-  (let (entries-marked)
+  (let ((entries-marked 0))
     (save-excursion
       (goto-char (point-min))
       (goto-char (next-single-property-change (point) 'txt))
       (while (re-search-forward regexp nil t)
         (when (string-match regexp (get-text-property (point) 'txt))
-          (setq entries-marked (+ entries-marked 1))
+          (setq entries-marked (1+ entries-marked))
           (call-interactively 'org-agenda-bulk-mark))))
     (if (not entries-marked)
         (message "No entry matching this regexp."))))
diff --git a/lisp/org/org-bibtex.el b/lisp/org/org-bibtex.el
index 21e36a7c187..4c852fcb875 100644
--- a/lisp/org/org-bibtex.el
+++ b/lisp/org/org-bibtex.el
@@ -369,7 +369,7 @@ This variable is relevant only if `org-bibtex-export-tags-as-keywords` is t."
                   (progn (goto-char (match-end 1)) (insert ", "))
                 (bibtex-make-field "keywords" t t))
               (insert (mapconcat #'identity tags ", ")))
-            (bibtex-reformat) (buffer-string)))))))
+            (buffer-string)))))))
 
 (defun org-bibtex-ask (field)
   (unless (assoc field org-bibtex-fields)
@@ -661,7 +661,8 @@ This uses `bibtex-parse-entry'."
 (defun org-bibtex-export-to-kill-ring ()
   "Export current headline to kill ring as bibtex entry."
   (interactive)
-  (kill-new (org-bibtex-headline)))
+  (let ((result (org-bibtex-headline)))
+    (kill-new result) result))
 
 (defun org-bibtex-search (string)
   "Search for bibliographical entries in agenda files.
diff --git a/lisp/org/org-exp-blocks.el b/lisp/org/org-exp-blocks.el
index 7d466cec65d..fbac6592090 100644
--- a/lisp/org/org-exp-blocks.el
+++ b/lisp/org/org-exp-blocks.el
@@ -211,7 +211,13 @@ which defaults to the value of `org-export-blocks-witheld'."
                   (when replacement
                     (delete-region match-start match-end)
                     (goto-char match-start) (insert replacement)
-                    (unless preserve-indent
+                    (if preserve-indent
+                        ;; indent only the code block markers
+                        (save-excursion
+                          (indent-line-to indentation) ; indent end_block
+                          (goto-char match-start)
+                          (indent-line-to indentation)) ; indent begin_block
+                      ;; indent everything
                       (indent-code-rigidly match-start (point) indentation)))))
               ;; cleanup markers
               (set-marker match-start nil)
diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el
index 4498280ac77..8d3948698fc 100644
--- a/lisp/org/org-list.el
+++ b/lisp/org/org-list.el
@@ -714,15 +714,15 @@ Assume point is at an item."
       ;;    equally indented than BEG-CELL's cdr.  Also, store ending
       ;;    position of items in END-LST-2.
       (catch 'exit
-        (while t
-          (let ((ind (+ (or (get-text-property (point) 'original-indentation) 0)
+        (while t
+          (let ((ind (+ (or (get-text-property (point) 'original-indentation) 0)
                         (org-get-indentation))))
-            (cond
-             ((>= (point) lim-down)
+            (cond
+             ((>= (point) lim-down)
               ;; At downward limit: this is de facto the end of the
               ;; list.  Save point as an ending position, and jump to
               ;; part 3.
-              (throw 'exit
+              (throw 'exit
                      (push (cons 0 (funcall end-before-blank)) end-lst-2)))
              ;; At a verbatim block, move to its end.  Point is at bol
              ;; and 'org-example property is set by whole lines:
@@ -1071,8 +1071,10 @@ It determines the number of whitespaces to append by looking at
 
 (defun org-list-swap-items (beg-A beg-B struct)
   "Swap item starting at BEG-A with item starting at BEG-B in STRUCT.
-Blank lines at the end of items are left in place.  Return the
-new structure after the changes.
+
+Blank lines at the end of items are left in place.  Item
+visibility is preserved.  Return the new structure after the
+changes.
 
 Assume BEG-A is lesser than BEG-B and that BEG-A and BEG-B belong
 to the same sub-list.
@@ -1089,7 +1091,17 @@ This function modifies STRUCT."
            (body-B (buffer-substring beg-B end-B-no-blank))
            (between-A-no-blank-and-B (buffer-substring end-A-no-blank beg-B))
            (sub-A (cons beg-A (org-list-get-subtree beg-A struct)))
-           (sub-B (cons beg-B (org-list-get-subtree beg-B struct))))
+           (sub-B (cons beg-B (org-list-get-subtree beg-B struct)))
+           ;; Store overlays responsible for visibility status.  We
+           ;; also need to store their boundaries as they will be
+           ;; removed from buffer.
+           (overlays (cons
+                      (mapcar (lambda (ov)
+                                (list ov (overlay-start ov) (overlay-end ov)))
+                              (overlays-in beg-A end-A))
+                      (mapcar (lambda (ov)
+                                (list ov (overlay-start ov) (overlay-end ov)))
+                              (overlays-in beg-B end-B)))))
       ;; 1. Move effectively items in buffer.
       (goto-char beg-A)
       (delete-region beg-A end-B-no-blank)
@@ -1122,7 +1134,22 @@ This function modifies STRUCT."
                     (setcar e (+ pos (- size-B size-A)))
                     (setcar (nthcdr 6 e) (+ end-e (- size-B size-A))))))))
             struct)
-      (sort struct (lambda (e1 e2) (< (car e1) (car e2)))))))
+      (setq struct (sort struct (lambda (e1 e2) (< (car e1) (car e2)))))
+      ;; Restore visibility status, by moving overlays to their new
+      ;; position.
+      (mapc (lambda (ov)
+              (move-overlay
+               (car ov)
+               (+ (nth 1 ov) (- (+ beg-B (- size-B size-A)) beg-A))
+               (+ (nth 2 ov) (- (+ beg-B (- size-B size-A)) beg-A))))
+            (car overlays))
+      (mapc (lambda (ov)
+              (move-overlay (car ov)
+                            (+ (nth 1 ov) (- beg-A beg-B))
+                            (+ (nth 2 ov) (- beg-A beg-B))))
+            (cdr overlays))
+      ;; Return structure.
+      struct)))
 
 (defun org-list-separating-blank-lines-number (pos struct prevs)
   "Return number of blank lines that should separate items in list.
@@ -1340,8 +1367,8 @@ If DEST is a buffer position, the function will assume it points
 to another item in the same list as ITEM, and will move the
 latter just before the former.
 
-If DEST is `begin' \(respectively `end'\), ITEM will be moved at
-the beginning \(respectively end\) of the list it belongs to.
+If DEST is `begin' (respectively `end'), ITEM will be moved at
+the beginning (respectively end) of the list it belongs to.
 
 If DEST is a string like \"N\", where N is an integer, ITEM will
 be moved at the Nth position in the list.
@@ -1351,6 +1378,8 @@ added to the kill-ring.
 
 If DEST is `delete', ITEM will be deleted.
 
+Visibility of item is preserved.
+
 This function returns, destructively, the new list structure."
   (let* ((prevs (org-list-prevs-alist struct))
          (item-end (org-list-get-item-end item struct))
@@ -1393,7 +1422,9 @@ This function returns, destructively, the new list structure."
                              (org-list-get-last-item item struct prevs))
                             (point-at-eol)))))
                      (t dest)))
-         (org-M-RET-may-split-line nil))
+         (org-M-RET-may-split-line nil)
+         ;; Store visibility.
+         (visibility (overlays-in item item-end)))
     (cond
      ((eq dest 'delete) (org-list-delete-item item struct))
      ((eq dest 'kill)
@@ -1429,9 +1460,14 @@ This function returns, destructively, the new list structure."
                                                          (+ end shift)))))))
                                moved-items))
                       (lambda (e1 e2) (< (car e1) (car e2))))))
-      ;; 2. Eventually delete extra copy of the item and clean marker.
-      (prog1
-          (org-list-delete-item (marker-position item) struct)
+      ;; 2. Restore visibility.
+      (mapc (lambda (ov)
+              (move-overlay ov
+                            (+ (overlay-start ov) (- (point) item))
+                            (+ (overlay-end ov) (- (point) item))))
+            visibility)
+      ;; 3. Eventually delete extra copy of the item and clean marker.
+      (prog1 (org-list-delete-item (marker-position item) struct)
         (move-marker item nil)))
      (t struct))))
 
diff --git a/lisp/org/org-lparse.el b/lisp/org/org-lparse.el
index c9669dd8ab4..9c3cd5b4811 100644
--- a/lisp/org/org-lparse.el
+++ b/lisp/org/org-lparse.el
@@ -1111,9 +1111,6 @@ version."
       (unless body-only
         (org-lparse-end 'DOCUMENT-CONTENT))
 
-      (unless (plist-get opt-plist :buffer-will-be-killed)
-        (set-auto-mode t))
-
       (org-lparse-end 'EXPORT)
 
       ;; kill collection buffer
diff --git a/lisp/org/org-odt.el b/lisp/org/org-odt.el
index 2e984a575bd..ca43d05bdbd 100644
--- a/lisp/org/org-odt.el
+++ b/lisp/org/org-odt.el
@@ -2211,7 +2211,9 @@ captions on export.")
          (content-file (expand-file-name "content.xml" outdir)))
 
     ;; init conten.xml
-    (with-current-buffer (find-file-noselect content-file t))
+    (require 'nxml-mode)
+    (let ((nxml-auto-insert-xml-declaration-flag nil))
+      (find-file-noselect content-file t))
 
     ;; reset variables
     (setq org-odt-manifest-file-entries nil
@@ -2320,7 +2322,8 @@ visually."
   (make-directory "META-INF")
   (let ((manifest-file (expand-file-name "META-INF/manifest.xml")))
     (with-current-buffer
-        (find-file-noselect manifest-file t)
+        (let ((nxml-auto-insert-xml-declaration-flag nil))
+          (find-file-noselect manifest-file t))
       (insert
        "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
      <manifest:manifest xmlns:manifest=\"urn:oasis:names:tc:opendocument:xmlns:manifest:1.0\" manifest:version=\"1.2\">\n")
diff --git a/lisp/org/org-protocol.el b/lisp/org/org-protocol.el
index 419a1ffcaa4..74fc35f2db1 100644
--- a/lisp/org/org-protocol.el
+++ b/lisp/org/org-protocol.el
@@ -225,7 +225,7 @@ Consider using the interactive functions `org-protocol-create' and
   :type 'alist)
 
 (defcustom org-protocol-protocol-alist nil
-  " Register custom handlers for org-protocol.
+  "Register custom handlers for org-protocol.
 
 Each element of this list must be of the form:
 
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index 37e5c4f91a6..e02062a2b93 100644
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -2368,7 +2368,7 @@ of the new mark."
                        (looking-at org-table-auto-recalculate-regexp))
        (org-table-recalculate) t))
 
-(defvar org-table-modes)
+(defvar org-tbl-calc-modes) ;; Dynamically bound in `org-table-eval-formula'
 (defsubst org-set-calc-mode (var &optional value)
   (if (stringp var)
       (setq var (assoc var '(("D" calc-angle-mode deg)
@@ -2376,10 +2376,10 @@ of the new mark."
                              ("F" calc-prefer-frac t)
                              ("S" calc-symbolic-mode t)))
             value (nth 2 var) var (nth 1 var)))
-  (if (memq var org-table-modes)
-      (setcar (cdr (memq var org-table-modes)) value)
-    (cons var (cons value org-table-modes)))
-  org-table-modes)
+  (if (memq var org-tbl-calc-modes)
+      (setcar (cdr (memq var org-tbl-calc-modes)) value)
+    (cons var (cons value org-tbl-calc-modes)))
+  org-tbl-calc-modes)
 
 (defun org-table-eval-formula (&optional arg equation
                                          suppress-align suppress-const
@@ -2437,7 +2437,7 @@ not overwrite the stored one."
                         equation
                       (org-table-get-formula equation (equal arg '(4)))))
            (n0 (org-table-current-column))
-           (modes (copy-sequence org-calc-default-modes))
+           (org-tbl-calc-modes (copy-sequence org-calc-default-modes))
            (numbers nil) ; was a variable, now fixed default
            (keep-empty nil)
            n form form0 formrpl formrg bw fmt x ev orig c lispp literal
@@ -2453,12 +2453,13 @@ not overwrite the stored one."
               (setq c (string-to-char (match-string 1 fmt))
                     n (string-to-number (match-string 2 fmt)))
               (if (= c ?p)
-                  (setq modes (org-set-calc-mode 'calc-internal-prec n))
-                (setq modes (org-set-calc-mode
-                             'calc-float-format
-                             (list (cdr (assoc c '((?n . float) (?f . fix)
-                                                   (?s . sci) (?e . eng))))
-                                   n))))
+                  (setq org-tbl-calc-modes (org-set-calc-mode 'calc-internal-prec n))
+                (setq org-tbl-calc-modes
+                      (org-set-calc-mode
+                       'calc-float-format
+                       (list (cdr (assoc c '((?n . float) (?f . fix)
+                                             (?s . sci) (?e . eng))))
+                             n))))
               (setq fmt (replace-match "" t t fmt)))
             (if (string-match "T" fmt)
                 (setq duration t numbers t
@@ -2479,7 +2480,7 @@ not overwrite the stored one."
                 (setq keep-empty t
                       fmt (replace-match "" t t fmt)))
             (while (string-match "[DRFS]" fmt)
-              (setq modes (org-set-calc-mode (match-string 0 fmt)))
+              (setq org-tbl-calc-modes (org-set-calc-mode (match-string 0 fmt)))
               (setq fmt (replace-match "" t t fmt)))
             (unless (string-match "\\S-" fmt)
               (setq fmt nil))))
@@ -2588,7 +2589,7 @@ not overwrite the stored one."
                                    duration-output-format) ev))
           (or (fboundp 'calc-eval)
               (error "Calc does not seem to be installed, and is needed to evaluate the formula"))
-          (setq ev (calc-eval (cons form modes) (if numbers 'num))
+          (setq ev (calc-eval (cons form org-tbl-calc-modes) (if numbers 'num))
                 ev (if duration (org-table-time-seconds-to-string
                                  (string-to-number ev)
                                  duration-output-format) ev)))
@@ -3309,15 +3310,18 @@ If S is a string representing a number, keep this number."
   "Convert a number of seconds to a time string.
 If OUTPUT-FORMAT is non-nil, return a number of days, hours,
 minutes or seconds."
-  (cond ((eq output-format 'days)
-         (format "%.3f" (/ (float secs) 86400)))
-        ((eq output-format 'hours)
-         (format "%.2f" (/ (float secs) 3600)))
-        ((eq output-format 'minutes)
-         (format "%.1f" (/ (float secs) 60)))
-        ((eq output-format 'seconds)
-         (format "%d" secs))
-        (t (org-format-seconds "%.2h:%.2m:%.2s" secs))))
+  (let* ((secs0 (abs secs))
+         (res
+          (cond ((eq output-format 'days)
+                 (format "%.3f" (/ (float secs0) 86400)))
+                ((eq output-format 'hours)
+                 (format "%.2f" (/ (float secs0) 3600)))
+                ((eq output-format 'minutes)
+                 (format "%.1f" (/ (float secs0) 60)))
+                ((eq output-format 'seconds)
+                 (format "%d" secs0))
+                (t (org-format-seconds "%.2h:%.2m:%.2s" secs0)))))
+    (if (< secs 0) (concat "-" res) res)))
 
 (defun org-table-fedit-convert-buffer (function)
   "Convert all references in this buffer, using FUNCTION."
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 838a9a18ad4..972f7801afc 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Bastien Guerry <bzg at gnu dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 7.8.09
+;; Version: 7.8.11
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -206,7 +206,7 @@ identifier."
 
 ;;; Version
 
-(defconst org-version "7.8.09"
+(defconst org-version "7.8.11"
   "The version number of the file org.el.")
 
 ;;;###autoload
@@ -4789,10 +4789,11 @@ but the stars and the body are.")
                     "\\|" org-clock-string "\\)\\)?"
                     " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]\r\n>]*?[]>]\\|<%%([^\r\n>]*>\\)")
             org-planning-or-clock-line-re
-            (concat "\\(?:^[ \t]*\\(" org-scheduled-string
-                    "\\|" org-deadline-string
-                    "\\|" org-closed-string "\\|" org-clock-string
-                    "\\)\\>\\)")
+            (concat "^[ \t]*\\("
+                    org-scheduled-string "\\|"
+                    org-deadline-string "\\|"
+                    org-closed-string "\\|"
+                    org-clock-string "\\)")
             org-all-time-keywords
             (mapcar (lambda (w) (substring w 0 -1))
                     (list org-scheduled-string org-deadline-string
@@ -5916,16 +5917,19 @@ needs to be inserted at a specific position in the font-lock sequence.")
     (when org-pretty-entities
       (catch 'match
         (while (re-search-forward
-                "\\\\\\(frac[13][24]\\|[a-zA-Z]+\\)\\($\\|[^[:alpha:]\n]\\)"
+                "\\\\\\(there4\\|sup[123]\\|frac[13][24]\\|[a-zA-Z]+\\)\\($\\|{}\\|[^[:alpha:]\n]\\)"
                 limit t)
           (if (and (not (org-in-indented-comment-line))
                    (setq ee (org-entity-get (match-string 1)))
                    (= (length (nth 6 ee)) 1))
-              (progn
+              (let*
+                  ((end (if (equal (match-string 2) "{}")
+                            (match-end 2)
+                          (match-end 1))))
                 (add-text-properties
-                 (match-beginning 0) (match-end 1)
+                 (match-beginning 0) end
                  (list 'font-lock-fontified t))
-                (compose-region (match-beginning 0) (match-end 1)
+                (compose-region (match-beginning 0) end
                                 (nth 6 ee) nil)
                 (backward-char 1)
                 (throw 'match t))))
@@ -5986,14 +5990,15 @@ When FACE-OR-COLOR is not a string, just return it."
 (defun org-font-lock-add-priority-faces (limit)
   "Add the special priority faces."
   (while (re-search-forward "\\[#\\([A-Z0-9]\\)\\]" limit t)
-    (add-text-properties
-     (match-beginning 0) (match-end 0)
-     (list 'face (or (org-face-from-face-or-color
-                      'priority 'org-special-keyword
-                      (cdr (assoc (char-after (match-beginning 1))
-                                  org-priority-faces)))
-                     'org-special-keyword)
-           'font-lock-fontified t))))
+    (when (save-match-data (org-at-heading-p))
+      (add-text-properties
+       (match-beginning 0) (match-end 0)
+       (list 'face (or (org-face-from-face-or-color
+                        'priority 'org-special-keyword
+                        (cdr (assoc (char-after (match-beginning 1))
+                                    org-priority-faces)))
+                       'org-special-keyword)
+             'font-lock-fontified t)))))
 
 (defun org-get-tag-face (kwd)
   "Get the right face for a TODO keyword KWD.
@@ -6255,34 +6260,36 @@ in special contexts.
 
 (defun org-cycle-internal-global ()
   "Do the global cycling action."
-  (cond
-   ((and (eq last-command this-command)
-         (eq org-cycle-global-status 'overview))
-    ;; We just created the overview - now do table of contents
-    ;; This can be slow in very large buffers, so indicate action
-    (run-hook-with-args 'org-pre-cycle-hook 'contents)
-    (message "CONTENTS...")
-    (org-content)
-    (message "CONTENTS...done")
-    (setq org-cycle-global-status 'contents)
-    (run-hook-with-args 'org-cycle-hook 'contents))
-
-   ((and (eq last-command this-command)
-         (eq org-cycle-global-status 'contents))
-    ;; We just showed the table of contents - now show everything
-    (run-hook-with-args 'org-pre-cycle-hook 'all)
-    (show-all)
-    (message "SHOW ALL")
-    (setq org-cycle-global-status 'all)
-    (run-hook-with-args 'org-cycle-hook 'all))
+  ;; Hack to avoid display of messages for .org  attachments in Gnus
+  (let ((ga (string-match "\\*fontification" (buffer-name))))
+    (cond
+     ((and (eq last-command this-command)
+           (eq org-cycle-global-status 'overview))
+      ;; We just created the overview - now do table of contents
+      ;; This can be slow in very large buffers, so indicate action
+      (run-hook-with-args 'org-pre-cycle-hook 'contents)
+      (unless ga (message "CONTENTS..."))
+      (org-content)
+      (unless ga (message "CONTENTS...done"))
+      (setq org-cycle-global-status 'contents)
+      (run-hook-with-args 'org-cycle-hook 'contents))
+
+     ((and (eq last-command this-command)
+           (eq org-cycle-global-status 'contents))
+      ;; We just showed the table of contents - now show everything
+      (run-hook-with-args 'org-pre-cycle-hook 'all)
+      (show-all)
+      (unless ga (message "SHOW ALL"))
+      (setq org-cycle-global-status 'all)
+      (run-hook-with-args 'org-cycle-hook 'all))
 
-   (t
-    ;; Default action: go to overview
-    (run-hook-with-args 'org-pre-cycle-hook 'overview)
-    (org-overview)
-    (message "OVERVIEW")
-    (setq org-cycle-global-status 'overview)
-    (run-hook-with-args 'org-cycle-hook 'overview))))
+     (t
+      ;; Default action: go to overview
+      (run-hook-with-args 'org-pre-cycle-hook 'overview)
+      (org-overview)
+      (unless ga (message "OVERVIEW"))
+      (setq org-cycle-global-status 'overview)
+      (run-hook-with-args 'org-cycle-hook 'overview)))))
 
 (defun org-cycle-internal-local ()
   "Do the local cycling action."
@@ -8574,7 +8581,7 @@ call CMD."
 ;;; Link abbreviations
 
 (defun org-link-expand-abbrev (link)
-  "Apply replacements as defined in `org-link-abbrev-alist."
+  "Apply replacements as defined in `org-link-abbrev-alist'."
   (if (string-match "^\\([^:]*\\)\\(::?\\(.*\\)\\)?$" link)
       (let* ((key (match-string 1 link))
              (as (or (assoc key org-link-abbrev-alist-local)
@@ -9432,7 +9439,7 @@ If the link is in hidden text, expose it."
            (string-match "\\([a-zA-Z0-9]+\\):\\(.*\\)" s))
       (progn
         (setq s (funcall org-link-translation-function
-                         (match-string 1) (match-string 2)))
+                         (match-string 1 s) (match-string 2 s)))
         (concat (car s) ":" (cdr s)))
     s))
 
@@ -12822,8 +12829,7 @@ headlines matching this string."
                        org-outline-regexp)
                      " *\\(\\<\\("
                      (mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
-                     (org-re
-                      "\\>\\)\\)? *\\(.*?\\)\\(:[[:alnum:]_@#%:]+:\\)?[ \t]*$")))
+                     (org-re "\\)\\>\\)? *\\(.*?\\)\\(:[[:alnum:]_@#%:]+:\\)?[ \t]*$")))
          (props (list 'face 'default
                       'done-face 'org-agenda-done
                       'undone-face 'default