From 029fc746889334f0b8b4320dcc08a73766766c06 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Sun, 8 Mar 2009 16:53:05 +0100
Subject: [PATCH] Agenda: Control how links are presented in added text.

Patch by Christopher Suckling.
---
 lisp/ChangeLog     |  5 +++++
 lisp/org-agenda.el | 17 +++++++++++++++++
 2 files changed, 22 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2593b6141..428786be5 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2009-03-08  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-agenda.el (org-agenda-add-entry-text-descriptive-links): New
+	option.
+	(org-agenda-add-entry-text): Honor
+	`org-agenda-add-entry-text-descriptive-links'.
+
 	* org-export-latex.el (org-export-latex-preprocess): Make all
 	external preprocess functions use a PARAMETER arg.
 
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 9b34d0139..34101e4a9 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -126,6 +126,14 @@ that is listed in the agenda view."
   :group 'org-agenda
   :type 'integer)
 
+(defcustom org-agenda-add-entry-text-descriptive-links t
+  "Non-nil means, export org-links as descriptive links in agenda added text.
+This variable applies to the text added to the agenda when
+`org-agenda-add-entry-text-maxlines' is larger than 0.
+When this variable nil, the URL will (also) be shown."
+  :group 'org-agenda
+  :type 'boolean)
+
 (defcustom org-agenda-export-html-style ""
   "The style specification for exported HTML Agenda files.
 If this variable contains a string, it will replace the default <style>
@@ -2132,6 +2140,15 @@ Drawers will be excluded, also the line with scheduling/deadline info."
 					      ".*\n?"))
 		    (with-temp-buffer
 		      (insert txt)
+		      (when org-agenda-add-entry-text-descriptive-links
+			(goto-char (point-min))
+			(while (org-activate-bracket-links (point-max))
+			  (add-text-properties (match-beginning 0) (match-end 0)
+					       '(face org-link))))
+		      (goto-char (point-min))
+		      (while (re-search-forward org-bracket-link-regexp (point-max) t)
+			(set-text-properties (match-beginning 0) (match-end 0)
+					     nil))
 		      (goto-char (point-min))
 		      (while (re-search-forward drawer-re nil t)
 			(delete-region
-- 
2.11.4.GIT