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 |
|
|
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)) |