;; Last edited: Wed Aug 25 14:10:36 1999

;(site-caseq (edin (require 'ccs-gnus)))

; mix-spool stuff

(load "gnus" nil t)
; (debug-on-entry 'gnus-start-news-server)
(setq gnus-nntp-server nil)
;


(setq 	gnus-article-save-directory "d:/mail")

;;; fixup clarinews
;(autoload 'gnus-clarinews-fun "clari-clean" "Clean ClariNews articles" t)
;(add-hook 'gnus-article-prepare-hook 'gnus-clarinews-fun)


(defun gnus-Subject-sort-by-subject-and-date (reverse)
  "Sort subject display buffer by subject alphabetically. `Re:'s are ignored.
If case-fold-search is non-nil, case of letters is ignored.  Date is used
if subjects are equal
Argument REVERSE means reverse order."
  (interactive "P")
  (gnus-summary-sort-summary
   (function
    (lambda (a b)
      (let ((s-a (gnus-trim-simplify-subject (nntp-header-subject a)))
	    (s-b (gnus-trim-simplify-subject (nntp-header-subject b)))
	    )
	(or (gnus-string-lessp s-a s-b)
	    (and (gnus-string-equal s-a s-b)
		 (gnus-date-lessp (nntp-header-date a)
				  (nntp-header-date b)))))))
   reverse
   ))

;(require 'util-mde) ; for string-replace-regexp-2
(defun gnus-trim-simplify-subject (text)
  "call gnus-simplify-subject and remove leading blanks"
  (if text
      (gnus-simplify-subject
       (string-replace-regexp-2
	(gnus-simplify-subject text t)
	"^\\s-+"
	"")
       t)
    ""))

(defun gnus-string-equal (a b)
  "Return T if first arg string is equal than second in lexicographic order.
If case-fold-search is non-nil, case of letters is ignored."
  (if case-fold-search
      (string-equal (downcase a) (downcase b)) (string-equal a b)))

(defun gnus-Group-update-and-vanish ()
  "update newsrc and restore config pre-group selection"
  (interactive)
  (gnus-group-force-update)
  (if gnus-pre-config
      (set-window-configuration gnus-pre-config))
;  (setq gnus-pre-config nil)
  )

(provide 'my-news)