/[erbot]/erbot/erbc.el
ViewVC logotype

Diff of /erbot/erbc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.82 by pkazmier, Sat Jan 8 21:35:44 2005 UTC revision 1.83 by pkazmier, Sun Jan 9 01:10:42 2005 UTC
# Line 820  Optional argument FOO ." Line 820  Optional argument FOO ."
820                          (string-match fs-web-page-title-p tgt))                          (string-match fs-web-page-title-p tgt))
821                   t))                   t))
822        (let* ((case-fold-search t)        (let* ((case-fold-search t)
823               (url (some (lambda (e)               (url (some 'erbutils-html-url-p msg)))
                           (when (string-match "^http://[^ ]+$" e)  
                             e))  
                         msg)))  
824          (when url          (when url
825            (setq leave-alone-p nil)            (setq leave-alone-p nil)
826            (setq msg (list "(" "web-page-title" (format "%S" url) ")")))))            (setq msg (list "(" "web-page-title" (format "%S" url) ")")))))

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26