/[emacs]/emacs/lisp/gnus/html2text.el
ViewVC logotype

Diff of /emacs/lisp/gnus/html2text.el

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

revision 1.6 by miles, Thu Nov 4 08:12:39 2004 UTC revision 1.7 by miles, Wed Jun 1 05:07:06 2005 UTC
# Line 1  Line 1 
1  ;;; html2text.el --- a simple html to plain text converter  ;;; html2text.el --- a simple html to plain text converter
2  ;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.  ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
3    
4  ;; Author: Joakim Hove <hove@phys.ntnu.no>  ;; Author: Joakim Hove <hove@phys.ntnu.no>
5    
# Line 374  formatting, and then moved afterward.") Line 374  formatting, and then moved afterward.")
374  fashion, quite close to pure guess-work. It does work in some cases though."  fashion, quite close to pure guess-work. It does work in some cases though."
375    (interactive)    (interactive)
376    (goto-char (point-min))    (goto-char (point-min))
377    (replace-regexp "^<br>$" "")    (while (re-search-forward "^<br>$" nil t)
378        (delete-region (match-beginning 0) (match-end 0)))
379    ;; Removing lonely <br> on a single line, if they are left intact we    ;; Removing lonely <br> on a single line, if they are left intact we
380    ;; dont have any paragraphs at all.    ;; dont have any paragraphs at all.
381    (goto-char (point-min))    (goto-char (point-min))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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