File mailman-SuSE2.patch of Package mailman.15639

--- Mailman/Cgi/admin.py
+++ Mailman/Cgi/admin.py
@@ -474,9 +474,16 @@
                             _('Edit the public HTML pages')))
     otherlinks.AddItem(Link(mlist.GetScriptURL('editarch'),
                             _('Edit the list archives')))
-    otherlinks.AddItem(Link(mlist.GetBaseArchiveURL(),
+
+    if not mlist.archive or not mlist.archive_private: 
+        otherlinks.AddItem(Link('http://mailman.suse.de/mlarch/SuSE/' + mlist.real_name,
+                            _('Go to list archives')).Format() +
+                       '<br>&nbsp;<br>')
+    else:
+        otherlinks.AddItem(Link(mlist.GetBaseArchiveURL(),
                             _('Go to list archives')).Format() +
                        '<br>&nbsp;<br>')
+    
     # We do not allow through-the-web deletion of the site list!
     if mm_cfg.OWNERS_CAN_DELETE_THEIR_OWN_LISTS and \
            mlist.internal_name() <> mm_cfg.MAILMAN_SITE_LIST:
--- Mailman/Cgi/listinfo.py
+++ Mailman/Cgi/listinfo.py
@@ -218,6 +218,10 @@
 
     replacements = mlist.GetStandardReplacements(lang)
 
+    if not mlist.archive or not mlist.archive_private:
+        replacements['<mm-archive>'] = '<a href="http://mailman.suse.de/mlarch/SuSE/' + mlist.real_name + '">'
+        replacements['</mm-archive>'] = '</a>'
+
     if not mlist.digestable or not mlist.nondigestable:
         replacements['<mm-digest-radio-button>'] = ""
         replacements['<mm-undigest-radio-button>'] = ""
openSUSE Build Service is sponsored by