used org-heading-components for extracting header without tags

rileyrg · Sep 12, 2010 · b1ed999 · b1ed999
1 parent a43196d
commit b1ed999
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/org-googlecl.el b/org-googlecl.el
@@ -62,7 +62,7 @@ t"
   (save-excursion
     (set-mark (goto-char (org-entry-beginning-position)))
     (let ((blabels (mapconcat  'identity (org-get-tags) ","))
-	  (btitle (org-trim (replace-regexp-in-string (org-get-tags-string) "" (org-get-heading)) )))
+	  (btitle (nth 4 (org-heading-components))))
       (org-forward-same-level 1 t)
       (googlecl-blog t btitle blabels))))