# HG changeset patch
# User Carsten Dominik <dominik@science.uva.nl>
# Date 1159514877 0
# Node ID 4eef6a4c871fb5b24fa574da527a2256b8594fe5
# Parent  4498fb838f409c846be5294a16c3fb19291a2660
(org-file-remote-p): Get regexp from list.
(org-archive-subtree): remove erraneous `]' from character list.

diff -r 4498fb838f40 -r 4eef6a4c871f lisp/textmodes/org.el
--- a/lisp/textmodes/org.el	Fri Sep 29 07:27:27 2006 +0000
+++ b/lisp/textmodes/org.el	Fri Sep 29 07:27:57 2006 +0000
@@ -4569,7 +4569,7 @@
 		;; Make the subtree visible
 		(show-subtree)
 		(org-end-of-subtree t)
-		(skip-chars-backward " \t\r\n]")
+		(skip-chars-backward " \t\r\n")
 		(and (looking-at "[ \t\r\n]*")
 		     (replace-match "\n\n")))
 	    ;; No specific heading, just go to end of file.
@@ -9816,7 +9816,7 @@
         ((fboundp 'tramp-handle-file-remote-p)
          (tramp-handle-file-remote-p file))
         ((and (boundp 'ange-ftp-name-format)
-              (string-match ange-ftp-name-format file))
+              (string-match (car ange-ftp-name-format) file))
          t)
         (t nil)))